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DIE PROGRAMM-BIBLIOTHEK FÜR TURBO PASCAL. 
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Das TURBO-Lader-Grundmodul ist eine 
umfangreiche Programm-Bibliothek für den 
TURBO-Pascal-Programmierer. Sie umfaßt 
zahlreiche ausführlich dokumentierte Proze- 
duren und Funktionen, die der Profi zur 
schnellen Lösung seiner Programmierauf- 
gaben verwenden kann und dem Einsteiger 
das Erlernen der Pascal-Programmierung 
erleichtern. Das Grundpaket TURBO-Lader 
bietet ein breitgefächertes Spektrum von 
Routinen, beginnend bei Bitmanipulation 
über optimierte Sortierverfahren bis hin zur 
‚Anwendung von Splinefunktionen, Fourier- 
transformation und Regressionsanalyse. Des 
weiteren Disketten-Routinen zum Lesen 
eines Inhaltsverzeichnisses oder zum Lesen 
und Schreiben einzelner Sektoren, Routinen 
zur Datenüberprüfung, ein Spooler mit Steu- 
erroutinen, erweiterte Stringverarbeitung 
und vieles mehr. Alle Routinen werden im 
kommentierten Quellcode für den TURBO- 
Pascal-Compiler ausgeliefert. 

Das TURBO-Lader-Grundpaket erfordert 
den TURBO-Pascal-Compiler. Es ist llefer- 
barauf3”-und5 1/4”-Disketten undlauffä- 
hig auf dem Schneider CPC 464, CPC 61 
CPC 6128 und Joycı 
3"-Disk. Best-Nr. MS 413 

5"4”-Disk. Best-Nr. MS 415 DM 138,* 


"inkl. MWSt , unverbindliche Preisempfehlung. 


TURBO-Lader Business umfaßt einen kom- 
fortablen Bildschirm-Maskengenerator und 
eine professionelle Dateiverwaltung. Der 
Maskengenerator gibt dem Pascal- 
Programmierer ein Werkzeug zur einfachen 
Bearbeitung von Bildschirm-Masken in die 
Hand. Eine Maske kann beliebig viele Textfel- 
der, biszu 128 Eingabe-und 128 Ausgabefel- 
der enthalten. Eingabefelder können auf 
komfortable Art editiert und auf Gültigkeit 
überprüft werden. Das Dateiverwaltungsmo- 
dul unterstützt die Programmierung von 
Datenbankanwendungen und Stammdaten- 
verwaltungen. Esbestehtaus einerkomforta- 
bien Datensatz- und Indexverwaltung mit 
mehreren Schlüsseln und Index-Dateien, die 
einen sekundenschnellen Zugriff auf belie- 
bige Daten ermöglicht. Mit diesen beiden 
Modulen stehen dem Anwendungsprogram- 
mierer zwei professionelle Werkzeuge zur 
zeit- und kostensparenden Erstellung kom- 
merzieller Anwendungen zur Verfügung. Alle 
Routinen werden im kommentierten Quell- 
code für den TURBO-Pascal-Compiler aus- 
geliefert. 

TURBO-Lader Business erfordert den 
TURBO-Pascal-Compiler und das TURBO- 
Lader-Grundpaket. Es ist lieferbar auf 3°- 
und5 1/4 "-Disketten undlauffähigauf dem 
Schneider CPC 464, CPC 664, CPC 6128 
und Joyce. 

3”-Disk. Best-Nr. MS423 

5"4”-Disk. Best-Nr. MS425 DM 148,* 


TURBO-Lader Science ist eine Sammlung 
technisch/wissenschaftlicher Funktionen 
und professioneller statistischer Verfahren 
fürdie Bereiche Medizin, Betriebs- und Volks- 
wirtschaft, Technik und Naturwissenschaf- 
ten. Das Modul enthält alle arithmetischen 
Operationen zur Verarbeitung komplexer 
Variablen inklusive der Umrechnung der Dar- 
stellung und die wichtigsten komplexen 
‚Funktionen wie Potenz, Wurzel, trigonometri- 
‚sche, transzendente undexponentielle Funk- 
tionen. Darüber hinaus ist ein vollständiges 
Paket zur Verarbeitung komplexer Matrizen 
und Vektoren enthalten. Der Statistikteil ist 
ein praktisches und direkt verwendbares 
Werkzeug zur computerunterstützten, effek- 
tiven Datenanalyse. Er umfaßt eine Vielzahl 
statistischer Funktionen mit den Schwer- 
punkten Regression und Korrelation, des- 
kriptive Statistik, Faktoranalyse und Testver- 
fahren. Alle Routinen werden im kommentier- 
ten Quellcode für den TURBO-Pascal- 
Compiler ausgeliefert, 

TURBO-Lader Science erfordert den 
TURBO-Pascal-Compller und das TURB 
Lader-Grundpaket. Es ist lieferbar auf 3 
und5 1/4”-Disketten undlauffähig auf dem 
Schneider CPC 464, CPC 664, CPC 6128 
und Joyce. 

3”-Disk. Best-Nr. MS 433 

5'4”-Disk. Best-Nr, MS 435 DM 189,* 


TURBO-Pascal® ist ein Warenzeichen der Borland Inc. USA TURBO-Lader, TURBO-Lader Business und TURBO-Lader Science sind Warenzeichen der Fa. Lauer & Wallnitz 


Diese Markt & Technik- 
Softwareprodukte erhalten Sie in 
den Computer-Abteilungen der 
Kaufhäuser Horten, Karstadt, 
Kaufhof, Quelle, bei Ihrem 
‚Computerhändler und bei 
unseren Depot-Buchhändlern. 
Wenn Sie direkt beim Verlag bestei- 
len wollen: per Nachnahme oder 
‚gegen Vorauskasse durch Verrech- 
'nungsscheck oder mit der ein- 


Schweiz: Markt & Technik Vertriebs AG, Kolerstrasse 3, CH-6300 Zug, 
gehefteten Zahlkarte. Österreich: Micrecomput-ique Schiler, Fasangasse 21, A-1030 Wien, 
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Tel. 089/46 13-133, 
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Tel. 089/48 13-205, 
‚gerne zur Verfügung. 


Editorial 


Pads Kane 


eit dem Altertum spricht man 

vom »goldenen Schnitt« wenn 

zwei Linien in einem idealen 
harmonischen Längenverhältnis zu- 
einander stehen. Bei allen Compu- 
tern aus dem Hause Schneider kann 
man das Verhältnis zwischen Preis 
und Leistung auch als »goldenen 
Schnitt« bezeichnen. Damit ist es 
kein Geheimnis, warum sich in Zei- 
ten, in denen andere die Segel strei- 
chen müssen, der Schneider als 
Newcomer auf Platz 2 der Verkaufs- 
hitparade schieben konnte. Aller- 
dings befriedigt der Computer al- 
lein noch nicht alle Wünsche seines 
Besitzers. 

Was man braucht, sind Informatio- 
nen. Und dies ist das Motto der zwei- 
ten Schneider-Ausgabe aus der Son- 
derheft-Reihe von Happy-Compu- 
ter, die Sie jetzt in den Händen hal- 
ten, Immer mehr Anfragen zu ver- 
schiedensten Themen erreichen 
täglich die Redaktion. Zu den am 
häufigsten genannten, finden Sie 
hier Anregungen — sowohl für An- 
fänger wie auch für Profis. 

Eins haben sich alle Schneider- 
Fans gewünscht. Tips und Tricks für 
jeden Zweck. Und hier sind sie. Sie 
finden RSX-Erweiterungen genauso 
wie eine optimale Anpassung von 
CP/M-Programmen (am Beispiel 
Wordstar), und jeder Besitzer einer 
Diskettenstation wird sich über 
»Help«, einen Disk-Doktor, freuen. 
Probleme, wie beispielsweise ver- 
sehentlich gelöschte Programme, 
gibt es nicht mehr. 

Ein weiteres Kapitel beschäftigt 
sich mit den Firmware-Routinen Ih- 
res Schneiders. Firmware, das sind 
die Maschinencode-Programme, 
die im ROM fest eingebaut sind. Sie 
werden vom Basic-Interpreter bei 
seiner Arbeit benutzt, um den Com- 
puter anzuleiten. Es gibt aber auch 


Routinen, die normalerweise von 


Basic nicht benutzt werden. Wußten 
Sie zum Beispiel schon, daß man mit 
‚einem einfachen Befehl Zeichen auf 


ERERWEOHFEOMEN 


dem Bildschirm auch nach unten 
scrollen kann? Diesen und viele an- 
dere »Calls« finden Sie ausführlich 
erklärt. Eine RSX-Anweisungmitder 
Sie das alles ausprobieren können, 
finden Sie auf Seite 67. 

‚Wer mit seinem Computer spielen 
will, für den hat unser Spiele-Freak 
Heinrich Lenhardt die interessan- 
ten Programme zusammengestellt. 
Aber wer lieber seinen Computer 
mit Listings »füttern« will, der kann 
seine kriminalistischen Fähigkeiten 
beim Fall »Famit AG« beweisen. 

Erstmals in einer deutschen Pro- 
gramm-Sammlung für Schneider- 
Computer finden Sie jedes Basic- 
Listing mit einer Prüfsumme abge- 
druckt. .Wenn Sie das Eingabepro- 
gramm »Explora« (Seite 13) benut- 
zen, wird diese Zahl nach jeder Zei- 
le auf dem Bildschirm ausgegeben. 
Sie können so sofort überprüfen, ob 
die Eingabe korrekt war. Und noch 
eine Erleichterung haben wir für Sie 
eingebaut. Die Bildschirmsteuerzei- 
chen werden alle in Klartext ausge- 
geben. Somit sollte es für Sie ein 
leichtes sein, alle Listings abzutip- 


pen. 

‘Wem das allerdings zu viel Arbeit 
ist, für den bieten wir natürlich auch 
wieder alle Programme auf 3-Zoll- 
Diskette (34,90 Mark, Bestell-Num- 
mer LH 86S1D) und auf zwei Kasset- 
ten (29,90 Mark, Bestell-Nummer LH 
86SIK) an. Bestellen können Sie die- 
se ganz einfach mit der Zahlkarte in 
der Mitte des Hefts. 

An dieser Stelle möchte ich mich 
beiallen Lesern bedanken, die sich 
aktiv an der Happy-Computer betei- 
ligen. Nur mit Ihren Anregungen ist 
es uns möglich, Ihnen die Informa- 
tionen zu bieten, die Sie sich wün- 
schen. Aber auch Kritik wird von 
uns gern gelesen. Denn nur mit Ih- 
ren Ideen können wir die Zeitschrift 
— und die Sonderhefte — so gestal- 
ten, wie Sie sich diese wünschen. 


Andreas Hagedorn 
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Speichern mit Luxus 


Jeder CP/M-Computer ist in seiner 
Leistung von einer guten Disketten- 


>41 station abhäng 
ist nun für den 


Base Laufwerk 
hneider am besten 


geeignet? Zwei Laufwerke stehen zur Aus- 
wahl für den Anwender. 


Speichern zunächst mit dem 

ab Werk eingebauten Daten- 
recorder. Die dadurch bedingte La- 
dezeit erfordert aber viel Geduld, 
Auch eine Erhöhung der SAVE- 
Baudrate bringt meist nicht den ge- 
wünschten Erfolg. Spätestens jetzt 
geht die Überlegung in Richtung 
Diskettenstation. Schnelle Zugriffs- 
zeiten und hohe Datensicherheit 
sind nur einige Vorteile. Durch die 
CP/M-Fähigkeit des CPC 464 in Ver- 
bindung mit einem geeigneten Lauf- 
werk wird Kompatibilität unter- 
schiedlichster Geräte gewährlei- 
stet. Aus diesem Grund liegen allen 
Laufwerken eine CP/M-Software- 
schnittstelle auf Diskette bei. 

‚Was verbirgt sich hinter dem Zau- 
bberwort CP/M? Nun, CP/M (Control 
Programm for Microcomputers) ist 
ein diskettenunterstütztes Betriebs- 
system der Firma Digital Research. 
Es wurde für Mikrocomputer mit 
dem Intel 8080 Mikroprozessor ent- 
wickelt, wird heute aber fast aus- 
schließlich im Zusammenhang mit 
dem Z80-Mikroprozessor von Zilog 
verwendet. Ihn benützen auch der 
CPC 464, 664 und der 6128. CM 
ist eine anwenderfreundliche Soft- 
wareschnittstelle, die eine von der 
Hardware unabhängige Benutzer- 
umgebung schafft. Deshalb setzt 
der Umgang mit Ihrem CPC unter 
CP/M keinerlei Vorkenntnisse der 
diversen Hardwarestrukturen des 
Computers voraus. 


V iele Käufer begnügen sich zum 


Selbstverständlich ist auch das im 
CPC 464 eingebaute Basic durch 
das Diskettenbetriebssystem Ams- 
dos (Amstrad Disc Operating Sy- 
stem) beziehungsweise Vdos (Vortex 
Disc Operating System) um einige 
Befehle erweitert worden, die die 
Arbeit mit einer Diskettenstation un- 
ter Basic in vollem Umfang erlau- 
ben. Mit Basic und Amsdos oder 
Vdos einerseits und CP/M 2.2 ande- 
rerseits, stehen Ihnen zwei Betriebs- 
systeme auf dem CPC 464 zur Verfü- 
gung. Vor allem für CP/M 2.2 gibt es 
mehrere Tausend qualitativ hoch- 
wertige Anwenderprogramme. Da- 
zu gehören fast alle Programmier- 
sprachen (Basic, Pascal, Fortran, 
Forth, Cobol, C), Textverarbeitungs- 
programme (Wordstar, Datastar 
etc.), Datenbanksysteme (dBase 
etc.) und auch eine Vielzahl an As- 
semblern. Viele der Programme 
sind im 3-Zoll-Format erhältlich, die 
meisten CP/M-Programme haben 
allerdings 5%-Zoll-Format. Alle un- 
gesicherten Programme, die Sie bis 
jetzt auf Kassette gespeichert ha- 
ben, können auf Diskette kopiert 
werden. Auch können Sie weiterhin 
den Datenrecorder benutzen, um 
zum Beispiel Dateien von Diskette 
auf Kassette zu sichern. Da es für 
den Schneider CPC 464 zur Zeit 
zwei verschiedene Diskettenforma- 
te gibt, stellt sich natürlich die Frage, 
welche Diskettenstation für welchen 
speziellen Anwendungsbereich die 
richtige ist. Es gibt eine 5%-Zoll-Sta- 


Ein Adapter erlaubt den Anschluß des Schneider-Laufwerks an die Diskettenstation 


Er Rn 


tion von Vortex und die Schneider-3- 
Zoll-Laufwerke. Es sei gleich am An- 
fang gesagt, daß keines der beiden 
Laufwerke, ob nun Schneider oder 
Vortex, dem anderen auf irgend ei- 
ne Art und Weise nachsteht, Um Ih- 
nen die Qual der Wahl etwas zu er- 
leichtern, erst einmal ein techni- 
scher Überblick 


Disketten-Formate: 

Vortex: 

9 Sektoren/Spur 

$12 Bytes/Sektor 

80 Spuren/Seite 

2 Seiten 

2 reservierte Spuren 

4 KByte Blöcke 

64 Directory-Einträge/Diskette 
Sektornummern |, 

4 ms Steprate 

720 KByte Gesamtspeicherkapazi- 

tät/ Diskette (unformatiert) 

Schneider: 

9 Sektoren/Spur 

512 Bytes/Sektor 

40 Spuren/Seite 

1 Seite 

2 reservierte Spuren 

1 KByte Blöcke 

64 Directory-Einträge/Diskette 
Sektornummern 41,42......,49 

12 ms Steprate 

180 KByte Gesamtspeicherkapazi- 

tät/Diskette (unformatiert) 

Alle hier genannten Parameter 
können mit Hilfe eines speziellen In- 
stallationsprogramms geändert 
werden. Die Befehlserweiterungen 
beider Geräte sind sich sehr ähn- 
lich. Die neuen Befehle lauten: 

— CPM 

CP/M-Betriebssystem Starten 

— FORMAT 

Diskette formatieren 

— RESET (nur Vortex) 

Schließt eine Datei und geht ins 
VDOS 

— S (nur Vortex) 

Wahl des Zweitlaufwerks (5% Zoll/ 
3 Zoll) 

— CODE (nur Vortex) 
Programmschutz (Codeschlüssel) 
Macht Laufwerk A zum Default- 
Bewer 

Macht Laufwerk B zum Defaultlauf- 


Listet den Disketteninhalt 
— ERA 


Löscht ein File oder eine Gruppe 
von Files 

— REN e) 

Ändert Namen von Files 

— SELECT (im Amsdos USER) 
Wahl des User-Bereichs und des 
Defaultlaufwerks 
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— DISC 

Ein- und Ausgabekanal sind der 
Diskettenstation zugeordnet 

— CAS (im Amsdos TAPE) 

Wie Disc, allerdings für Datenre- 
corder 

— DISCIN 

Der Eingabekanal ist der Disket- 
tenstation zugeordnet 

— CASIN (im Amsdos TAPE.IN) 
Wie Disc,n, allerdings für Daten- 
recorder 

— DISCOUT 

Der Ausgabekanal ist der Disket- 
tenstation zugeordnet 

— CASOUT (im Amsdos TAPE 
OUT) 

Wie Disc.out, allerdings für Daten- 
recorder 

— ATRIBUT 

Setzen von Fileattributen 

— DRIVE (nur Amsdos) 

Setzen des Standardlaufwerks 


Alle anderen Kassettenoperatio- 
nen sind weiterhin verfügbar. Es ist 
hierbei allerdings noch zu erwäh- 
nen, daß der Merge-Befehl bei der 
Schneider-Version nicht ganz ein- 
wandfrei funktioniert. Den Fehler 
kann man aber mit einer Software- 
Lösung umgehen. Vortex bietet den 
Vorteil, Fehlermeldungen in deut- 
scher Sprache auszugeben 

Wie sind die zusätzlichen Disket- 
tenoperationen nun aber eingebun- 
den? Für Eingeweihte sind die Aus- 
drücke »Sprungtabelle«und»Sprung- 
vektoren« nichts Neues. Der Kas- 
settenbetrieb wird über eine solche 
Sprungtabelle mit Vektoren verwal- 
tet. Damit alle Befehle, die die Kas- 
sette steuern auch auf Diskette wir- 
ken, werden die entsprechenden 
Sprungvektoren ersetzt. Das Be- 
triebssystem beinhaltet eine Basic- 
Erweiterung, die mit RSX ungebun- 
den ist. 

Da diese Befehlsnamen den resi- 
denten CP/M-Befehlen sehr ähnlich 
sind, braucht man sich meist nur ei- 
nen Befehlsnamen merken. Von 
Nachteil bei den RSXs ist allerdings, 
daß Strings nicht direkt übernom- 
men werden dürfen, sondern in ei- 
ner Variablen definiert sein müssen. 
Mit dem @-Pointers wird die Adres- 
se dieser Variablen übergeben. Ein 
Beispiel: 

Löschen des Directory-Eintrages 
beziehungsweise des Programms 
TEST. 

Vorgehensweise: 
S$="TEST” 
ERA, @s$ 

Beide Laufwerke benutzen den 
Controller „PD 768. 

Dieser Controller ist in der Lage, 
hardwaremäßig bis zu vier Laufwer- 
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Bild 1. Klein aber 
fein: die 3-Zoll- 
Station von 
Schneider 


m | 


Bild 2. Mehr als 700 
KByte Speicherplatz 
bietet das 5/,-Zoll- 
Laufwerk von 
Vortex 


Bild 3. Das ideale 
Zweitlaufwerk: 
3-Zoll-Gerät von 
Cumana 


Bild 4. Wer zwei 
Formate haben will 
braucht die 5\,-Zoll- 
Station von Cumana 
als Zweitlaufwerk 


ke (3, 3%, 5% oder 8 Zoll) mit Single- 
oder Double-Density zu verwalten. 
Hierbei dürfte allerdings die 8-Zoll- 
Double-Density von der Übertra- 
gungsrate her (500 KBit/s) für die 
Z80A-CPU wohl etwas zu schnell 
sein. Diese Vielseitigkeit mit ver- 
schiedenen Formaten macht es bei- 


K> 


den Firmen möglich, jeweils das an- 
dere Laufwerkformat kompatibel zu 
machen (Vortex zu 3 Zoll/Schneider 
zu 5% Zoll). 

Weiterhin bietet der Controller 
die Möglichkeit, die Parameter der 
Diskettenformate zu verändern. Da- 
durch kann man Disketten von frem- 
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den Computern lesen beziehungs- 
weise beschreiben. Die Firma Vor- 
tex hat bereits das Programm Para 
auf dem Markt, wodurch man diese 
Parameter der Diskettenformate 
menügesteuert verändern kann. 
Schaut man die Laufwerke näher 
an, so bemerkt man zunächst einmal 
die unterschiedliche Speicherkapa- 
zität. Im Gegensatz zu der doppel- 
seitig beschreibbaren Diskette von 
Vortex mit einer Kapazität von 720 
KByte (unformatiert), erscheint die 
Speicherleistung von 180 KByte (un- 
formatiert) des nur einseitig schrei- 
benden Schneider-Laufwerks doch 
recht mager. Da die Zugriffszeiten 
vergleichbar sind, wird in erster Li- 
nie der benötigte Speicherplatz ei- 
nes Anwenders für die Wahl eines 
Laufwerks ausschlaggebend sein. 
Beide Laufwerke machen einen 
eher robusten Eindruck. Unter- 
schiede werden jedoch bei den Dis- 
ketten deutlich. Im Gegensatzzu der 


Die Qual 


äußerst stabilen 3-Zoll-Diskette 
(Schneider), die auch eine rauhe Be- 
handlung unbeschadet übersteht, 
verlangt die 5%-Zoll-Diskette (Vor- 
tex) eine vorsichtigere Handha- 
bung. 

Von beiden Firmen werden als 
Utilities für CP/M unter anderem 
ASM und DDT mitgeliefert. Dassind 
Programme, mit denen man Maschi- 
nenprogramme erstellen (ASM)und 
testen (DDT) kann, allerdings im 
8080-Code. 


DOS mit Monitor 


Für Z80-Assembler bleibt die 
Möglichkeit, auf einen anderen As- 
sembler/Monitor zurückzugreifen 
(zum Beispiel Mona/Gena von 
Schneider) oder auf ein Vortex-Lauf- 
werk mit Betriebssystem 2.0 und 


"ROM-residentem Monitor. 


Wer VDOS 1.0 besitzt, ist nicht im 


Nachteil, denn laut Vortex wird es 
kostenlos gegen VDOS 2.0 ge- 
tauscht. Außer dem ROM-residen- 
ten Monitor hat man durch die Be- 
fehlserweiterung des CPC 664 noch 
eine schnellere Bildschirmausgabe 
zur Verfügung. 

Beide Laufwerke entsprechen 
dem heutigen technischen Stan- 
dard. Bezüglich der Zugriffszeit er- 
füllen sie gehobene Ansprüche, so 
daß sie für den professionellen Ein- 
satz durchaus geeignet sind. Jedes 
Format hat seine Vorteile. 3-Zoll-Dis- 
ketten sind zwar sehr teuer, aller- 
dings ist 3 Zoll das Herstellerformat, 
die Software wird in diesem Fall also 
immer zu kaufen sein. 

Wer sich nicht für ein Format ent- 
scheiden kann, dem sei der Zweit- 
laufwerk-Hersteller Cumana emp- 
fohlen. Dieser bietet preisgünstige 
Zweitlaufwerke (3 Zoll oder 5% Zoll) 
an. Sogar mit bis zu 1 MByte Spei- 
cherplatz. (Oliver Harms) 


der Druckerwahl 


Spielen Sie mit dem Gedanken, sich 

einen Drucker zu kaufen? Dann 

stehen Sie vor der schwierigen 

Entscheidung, sich einen bestimm- 
ten Drucker unter hunderten auszuwählen. 
Es gibt aber fundamentale Eigenschaften, 
die ein geeignetes Gerät besitzen muß. 


eder Drucker muß auf irgendei- 
ne Weise mit Ihrem Computer 
verbunden werden. Auf dem 
Markt gibt es zwei verschiedene 
Anschlußnormen: 
— Drucker mit V24/RS232-Schnitt- 
stelle 
— Drucker mit Centronics-Schnitt- 
stelle. 

Für Schneider-Computer sind nur 
Drucker mit Centronics-Schnittstel- 
le geeignet. Sobald ein Gerät aber 
diesen Anschluß besitzt, können Sie 
jeden beliebigen Drucker wählen 
— egal ob er nun das Kürzel »CPC« 


im Namen führt oder nicht. 


Es erleichtert die spätere Arbeit 
sehr, wenn Ihr Wunschdrucker den 
normalen »ASCII-Zeichensatz« be- 
herrscht. Dazu gehören auch die 
Steuerzeichen mit den Codes 0D 
hex für »Wagenrücklauf« und 0Ahex 
für »Zeilenvorschub«. Sollte ein be- 
stimmtes Zeichen (beispielsweise 
ein»Ä«) im Computer einen anderen 
Code haben als im Drucker, dann 
müssen Sie eine Übersetzungsrouti- 
ne in das CPC-Betriebssystem ein- 
bauen. Diese Lösung ist aber wirk- 
lich nur etwas für Programmierspe- 
zialisten. Als Anfänger oder als Nur- 
Anwender werden Sie mit dieser 


Lösung nicht glücklich werden, Es 
lohntsich also, daraufzuaachten, daß 
der Drucker den ASCII-Zeichensatz 
beherrscht, Wenn Sie keine allzu 
exotische Herstellerfirma wählen, 
dürfte es damit aber keine Schwie- 
rigkeiten geben. 

Die Firma Schneider bietet zum 
Preis von etwa 60 Mark selbst ein zu 
Centronics-Druckern passendes An- 
schlußkabel an. Wenn Sie dieses 
aber nicht kaufen wollen, dann müs- 
sen Sie es sich selbst basteln. Das 
Anschlußschema finden Sie in den 
Handbüchern; das des Schneider 
CPC 464 im Anhang 5 auf Seite 2. 

Manche Drucker führen bei ei- 
nem Wagenrücklauf (CR) automa- 
tisch einen Zeilenvorschub (LF) aus. 
Die Schneider-Computer senden je- 
doch zum Anfangen einer neuen 
Zeile ein separates Vorschubzei- 
chen aus. Fehlt dieses, kann man 
zum Beispiel eine Zeile zweimal 
überdrucken. Ein Drucker mit auto- 
matischem Zeilenvorschub führt in 
Zusammenarbeit mit Ihrem Schnei- 
der den Zeilenvorschub doppelt 
aus. Das heißt, es wird jedesmal ei- 
ne Leerzeile produziert. 

Achten Sie also darauf, daß bei Ih- 
rem Drucker dieser automatische 
Zeilenvorschub abschaltbar ist. Bei 
manchen funktioniert das durch 
Umschalten eines Dip-Schalters 
(meist im Inneren des Druckers), Bei 
anderen hilft das Unterbrechen der 
Leitung, die zum Anschluß mit der 
Nummer 14 des Centronics-Stek- 
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kers führt »AUTO FEED XT«-Lei- 
tung). Beim original Schneider-An- 
schlußkabel ist diese Unterbre- 
chung schon vorhanden 

‘Wenn Sie mit Ihrem Computer nur 
Texte ausgeben wollen, dann ge- 
nügt es, wenn er den Standard- 
ASCII-Zeichensatz beherrscht 
Eventuell sollten Sie aber darauf 
achten, daß er auch den deutschen 
Zeichensatz kennt. Die Zeichen 
»@[\]Il]-« werden dann durch die 
Zeichen »sAÖUäöüß« ersetzt 

Wollen Sie aber alle Zeichen — 
das heißt auch die Sonderzeichen — 
auf dem Drucker ausgeben, dann 
sollte er die speziellen Schneider- 
Grafikzeichen ebenfallsim ROM ha- 
ben. In der Regel sind das nur 
Drucker, beidenen der Satz»an den 
Schneider CPC 464/664/6128 ange- 
paßt« explizit in der Funktionsbe- 
schreibung auftaucht, 

Manche Drucker erlauben es, ei- 
nen eigenen Zeichensatz zu definie- 
ten. Lassen Sie sich mit dieser an 
sich positiven Eigenschaft jedoch 
nicht von einem Händler ein- 
wickeln, wenn sie aufdie Schneider- 
Grafikzeichen Wert legen. Denn 
wenn Sie kein Profissind, ist die eige- 
ne Definition von 127 Grafikzeichen 
eine rechte Fleißarbeit. Übrigens 
kann der »%-Profi« eigene Zeichen 
auch ohne diesen frei definierbaren 
Zeichensatz selbst erzeugen: Man 
ändert einfach die Betriebssystem- 
routine für die Druckerausgabe so 
ab, daß vor einem Grafikzeichen 
der Drucker in den Grafikmodus 
umgeschaltet wird und dieses Zei- 
chen im »Bitbildmodus« geplottet 
wird. 

Achten sie jedoch darauf, daß all 
diese Funktionen mit Codes ange- 
steuert werden, deren Wert kleiner 
als 127 ist. Der 7 Bit breite Drucker- 
port des Schneider kann nämlich 
Werte größer als 128 nicht ausge- 
ben. 


Der Zeichensatz wird 
durch ein Steuerzeichen 
umgeschaltet 


Im Schneider-Drucker NLQ401 
wird dazu ein interessanter Trick 
benutzt: Durch einen Steuercode 
wird der normale Zeichensatz samt 
den normalen Steuerzeichen abge- 
schaltet und die Grafikzeichen mit 
Codes zwischen 128 und 255 auf die 
freigewordenen Codes mit kleinen 
Nummern gelegt. Erst durch ein 
weiteres Steuerzeichen wird der 
normale Modus wiederhergestellt. 
So können Sie die Verwendung des 
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‚Schneider 


Am Schneider-Drucker muß sich die Konkurrenz messen 


achten Bits umgehen. Ihr Drucker 
sollte etwas Ähnliches aufweisen. 

Wenn Sie später einmal vorhaben, 
eine Bildschirm-Hardcopy auszu- 
drucken (auch wenn Sie jetzt noch 
nicht wissen, wie das funktioniert), 
dann muß Ihr Drucker grafikfähig 
sein. Und die nötige Software muß 
es zu kaufen geben oder das Gerät 
zumindest leicht zu programmieren 
sein. 


Grafikfähige Drucker 
als Voraussetzung 


Achten Sie aber auch hier darauf, 
daß die Grafikausgabe mit Codes, 
die einen Wert unter 127 haben, er- 
folgt. Bei vielen Druckern wird näm- 
lich das achte Bit (Wert größer als 
127) benutzt, das die Schneider ge- 
rade nicht angeben können. 

Noch ein paar Hinweise sind wich- 
tig: Investieren Sie ruhig 100 Mark 
mehr für einen schnellen Drucker. 
Während des Wartens auf das Ende 
eines Listings ist schon viel Wasser 
den Rhein hinuntergeflossen — be- 
sonders wenn der Drucker keinen 
Traktor hat und man vor dem 
Drucker ausharren muß, um alle 
halbe Minute ein neues Blatt von 
Hand einzuspannen. 

Merken Sie sich: Je schöner die 
Schrift, desto langsamer ist der 
Drucker (bei konstantem Preis). Der 
Standard für Schnellschrift liegt zur 
Zeit beietwa 100 Zeichen pro Sekun- 
de — für Schönschrift bei etwa 20 
Zeichen pro Sekunde. 

Schätzen Sie vor dem Drucker- 
kauf Ihren Papierbedarf und schla- 


gen sie mindestens das Doppelte 
dazu (Sie haben noch gar keine Vor- 
stellung davon, was so ein Drucker 
alles ausdrucken kann). Den Kauf- 
preis für den Drucker sollten Sie 
dann immer zusammen mit dem 
Preis für das eventuell notwendige 
Spezialpapier berechnen. Sie wer- 
den sich wundern, wie teuer dann 
ein ach so günstiger Thermo- 
drucker wegen des Spezialpapiers 
wird. Übrigens: Spezialpapier ist 
grundsätzlich samstags, fünf Minu- 
ten nach Ladenschluß zu Ende. Es 
soll schon Leute gegeben haben, 
die Ihre Listings in so einem Fall auf 
Toilettenpapier ausgedruckt haben 

Wenn Sie Briefe schreiben wollen, 
dann sollten Sie auch darauf achten, 
daß Sie ungelochte Einzelblätter 
einspannen können. Nicht alle 
Drucker lassen sich mit einem Ein- 
zelblatteinzug aufrüsten. Das Ein- 
spannen einzelner Blätter wird mit 
wechselnder Zahl der Briefe lästig, 
Und alle Extras kosten Geld. 


Farbe lohnt sich selten, 
kostet viel 


Ein Farbdrucker lohnt sich nur, 
wenn Sie viele Grafiken ausdrucken 
möchten und sich gut auskennen. 
Ober Sie bekommen die entspre- 
chende Grafik-Software gleich mit- 
geliefert. Aber auch in diesem Fall 
sollten Sie sich genauestens über 
den Preis und die Haltbarkeit des 
Spezialfarbbands im Vergleich zu 
einem schwarzen Farbband infor- 
mieren. (Helmut Tischer) 
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Was Sie schon 
immer über 
Joysticks 
wissen wollten 


Eine Joystick- 
-) buchse hat 
Ihr Computer 
auch. Aber 
was ist, wenn Sie zu 
zweit spielen wollen? 
Der Schneider-eigene 
Joystick ist für Spiele- 
fans keine Lösung. 


hne ihn sind Computerspiele 
0] nur halb so schön. Fast unent- 

behrlich für die Bedienung 
von Grafikprogrammen, ist er auch 
als Alternative zur Maus nicht zu un- 
terschätzen: der Joystick. 

Wer aber weiß schon genau, wie 
so ein »Steuerknüppel« funktioniert! 
Wie erfaßt der Computer die Da- 
ten? Was ist zu tun, wenn der Joystick 
seinen Geist aufgibt? Gerade bei 
den Schneider-Computern gibt es 
hier Probleme. Es funktionieren 
nämlich einige handelsübliche Joy- 
sticksnicht auf Anhieb. Auch können 
nicht ohne weiteres zwei Steuer- 
knüppel gleichzeitig betrieben wer- 
den — es sei denn, man benutzt die 
original »Schneider-Sticks«. 

Machen Sie mit uns eine Reise 
durch das Innenleben eines Joy- 
sticks, und sehen Sie, wie einfach 
Probleme gelöst werden können. 

Einsteigen wollen wir mit dem Joy- 
stickport, an dem die Daten ankom- 
men und an den Computer überge- 
ben werden. 

Ein kleines Programm, um den 
Port richtig testen zu können, ist hier 
recht nützlich: »]O PRINT JOY(0), 
JOY(l) : GOTO 10«. 

Nachdem es mit »RUN« gestartet 
wurde, erscheinen auf dem Bild- 


En 


rechts 7 Feuer 

- 8 Common 1 
Feuer2 9 Common 2 
der 


Schneider- 
belegt 


® 
OOOO: 


schirm zwei Zahlenreihen. Die linke 
zeigt den aktuellen Wert für den Joy- 
stick ] an, die rechte Reihe für den 
Joystick 2. Zum Testen nehmen Sie 
nun ein kurzes Stück Kabel und ver- 
binden die Pins des Joystickports 
beliebig miteinander. Dazu halten 
Sie einfach die Kabelenden daran — 
keine Angst, es kann Ihnen und dem 
Computer nichts passieren. Be- 
trachten Sie nun die auf dem Bild- 
schirm angezeigten Werte, so stel- 
len Sie fest, daß nur bestimmte Kom- 
binationen einen anderen Wert alsO 
ergeben. Diese Werte ungleich 0 
sind Eingangsdaten, die nach fol- 
genden Voraussetzungen entste- 
hen: Auf Bild 1 sehen Sie die Bele- 
gung des Anschlusses von Pin 1 bis 
Pin 9, Halten Sie Ihr Kabel nun ein- 
mal mit einem Ende an Pin 8und mit 
dem anderen der Reihenfolge nach 
an die Pins 1 bis 7. Sie werden se- 
hen, daß aufdem Bildschirm nun un- 
terschiedliche Werte für Joystick 1 
(inke Zahlenreihe) angezeigt wer- 
den, Diese Werte sind in der Varia- 
blen JOY(0) abgelegt. Legen Sie nun 
das Kabel von Pin 8 auf Pin 9 und 
wiederholen Sie den Vorgang. 

Sie sehen, daß sich nun verschie- 
dene Werte für den anderen Joy- 
stick JOY(])) ergeben haben, Tabel- 
le 1 zeigt, welche Werte durch Ver- 
bindung der Pins 1 bis 7 mit Pin 8 
und 9auftreten. Verbindet man meh- 
rere Pins (l bis 7) mit den Massepins 
(8 oder 9), so wird der Variablen 
JOY(x) die Summe der Einzelwerte 
zugewiesen. Auf diese Weise lassen 
sich nun alle Zahlen zwischen 0 (kei- 
ne Verbindung) bis 127 darstellen. 
Diese Variante, Daten über den Joy- 
stickport an den Computer zu über- 
mitteln, eröffnet neue Wege der Da- 
teneingabe. Wir wollen uns jedoch 
hier nur mit dem Anschluß von Joy- 
sticks beschäftigen. Im Inneren 
solch eines Peripheriegerätes ge- 
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schieht nichts anderes, als daß ver- 
schiedene Kontakte geschlossen 
werden, die vom Computer als Rich- 
tung und „Feuer« interpretiert wer- 
den (Tabelle 2). Zwischenrichtun- 
gen (beispielsweise links oben) wer- 
‚den durch gleichzeitiges Verbinden 
‚der entsprechenden Kontakte 
inks=4und oben=1 ergibtsich 

links oben=5) erreicht. 
‚Wie nun ein Kontakt geschlossen 
wird, daran unterscheiden sich die 
verschiedenen Joysticks. Hier ist 


Vikroschaltern. Diese robusten Ta- 
‚ster versprechen eine lange Nut- 
zungsdauer und lassen sich bei ei- 
nem Defekt problemlos ausbauen 
und erneuern (Bild 2). Aber Qualität 
"hat auch ihren Preis und deshalb 

ind solche Joysticks (zum Beispiel 

ler Competition Pro) auch nicht bil- 
lig. Die sogenannten Metallzungen- 


tung verwendet. Die Haltbarkeit er- 
wies sich zwar als nicht so hoch wie 
bei Mikroschaltern, was der niedri- 
‚gere Preis aber ausgleicht. 

Eine ganz andere Konstruktion 
sind sogenannte Quecksilberschal- 
‚ter. Solch ein Schalter besteht ausei- 
nem Glasröhrchen, in dessen Inne- 
ren sich ein Quecksilbertropfen be- 
findet, Je nach Neigung fließt diese 
an ein Ende des Röhrchens und ver- 

i ‚bindet dort zwei Kontakte. Der Strom 

_ kann fließen (Bild 3). Diesen Schal- 

_ ter findet man zum Beispiel im The 

 Stick«, der nur aus einem Griff be- 
steht und dadurch etwas gewöh- 
nungsbedürftig ist. 

Es gibt also verschiedenste Funk- 
tionsprinzipien. Wie gesagt, funktio- 
nieren nicht alle direkt am Schnei- 
der, Verschiedene Computer fas- 

_ sen nämlich die Steuersignale ver- 
schieden auf, Das sollte aber kein 
‘Grund sein vom Kauf solch eines 
Joysticks zurückzuschrecken. Ist das 

- Funktionsprinzip einmal verstan- 
den, braucht man den Joystick nur 

- noch aufschrauben und die entspre- 

chenden Kontakte auf Schneider- 
Norm umstecken beziehungsweise 
umlöten. Welches Kabel an welchen 
Kontakt führt, das stellen wir am ein- 
fachsten mit einem‘ Widerstands- 
meßgerät fest, Alternativ reicht 
auch eine Taschenlampenbirne mit 
Kabel und Batterie. Pin 1 muß mit 
m Schalter »oben« verbunden 


läßt sich jedoch der Einsatz eines 
Lötkolbens nicht vermeiden. Die an- 
deren Kabel werden genauso be- 
handelt. Pin 2 ist dabei mit »unten«, 
Pin 3 mit»links«, Pin 4 mit»rechts«, Pin 
6 mit »Feuer 2 « und Pin 7 mit »Feuer 
l« belegt. Pin 8liefert Masse für den 
ersten Joystick, Pin 9für den zweiten. 
Man kannsich also zwei verschiede- 
ne bauen. Tun Sie das aber nicht. 
Wir wollen den Adapter so gestal- 
ten, daß er die Auswahl (l oder 2) 
macht. Wir benützen für Masse nur 
Pin 8. Eins sollte man noch beden- 
ken: Beim Aufschrauben erlischt die 
Garantie für den Joystick. 
Grundsätzliche Schwierigkeiten 
gibt es beim »Quickshot II«. Dieser 
Joystick ist mit einer »Autofeuer« 
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Tabelle 1. 
Die Werte der verschiedenen Kontakte 


Funktion Joystick1 Joystick 2 
Masse= Masse= 
Pin 8 Pin9 

ı 
2 
4 
rechts 8 
Feuer 16 32 


Das Signal von Pin 5 (Wert=64) wird für 
die Joystickabfrage nicht benötigt. 


Tabelle 2.Die Werte der Joystickabfrage 


Funktion ausgestattet. Das »Autofeu- 
er« wird von einer Triggerschaltung 
erzeugt, die eine Spannung von 5 V 
benötigt. Der Schneider gibt, im Ge- 
gensatzzum C64, diese über den Joy- 
stickport nicht aus. Somit ist dieser 
Joystick für den Schneider-Besitzer 
von vorneherein uninteressant. 
Höchstens man legt zwischen 


Hauptstromversorgung und 5-V-Ein- 


gang ein Kabel. 


Was jetztnoch fehltistder Adapter 
für den Anschluß von zwei Joysticks, 
Zuerst besorgt man sich einen 
9poligen weiblichen Stecker wie er 
am Joystick-Kabel zu finden ist. Fer- 
ner zwei männliche Stecker und 14 
kurze Kabelstücke. An die männli- 
chen Stecker werden die Joysticks 
gesteckt, der weibliche wird auf die 
Buchse des Computers gesteckt. An 
die Pins | bis 4 und 6 sowie 7 des 
weiblichen Steckers lötet man je- 
weils zwei Drähte, an die Pins 8 und 
9 hingegen nur einen. Pin 5 bleibt 
unbenutzt. Die Pins 1 bis 4, 6 und 7 
der männlichen Stecker werden di- 
rekt mit einem der jeweils zwei Ka- 
bel des weiblichen Steckers ver- 
bunden. Der Draht von Pin 8 gehört 
zum Stecker des Joystick 1 (auch Pin 
8), der von Pin 9 wird mit Pin 8 des 
Joystick 2 verlötet. Die Belegungfin- 
den Sie im Bild 4. Zum Austesten 
dient wieder unser kleines Pro- 
gramm vom Anfang. Bedingung da- 
für, daß die Schaltung funktioniert, 
ist, daß der Joystick an Pin 1 bis 4 die 
Richtung, Pin 6 und 7 Feuer und Pin 
8 Masse zur Verfügung stellt. Bei 
den Schneider-Joysticks benutzt der 
erste nur»Feuer l«, derzweite hinge- 
gen »Feuer 2. (Alfred Otto) 
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Mehr Speicher für den CPC 


Eine Erweiterung, die den Speicher 
des »CPC 464« bis auf 576 KByte 
aufbläst, sorgt dafür, daß größere 
CP/M-Programme nun auch auf dem 
kleinsten Schneider-Computer laufen. 


für den CPC 464 wird in ver- 

schiedenen Ausbaustufen ge- 
liefert. Eine Erweiterung mit 512 
KByte kostet 589 Mark, 320 KByte 
sind für 528 Mark zu haben, bei 256 
KByte reichen schon 478 Mark, bei 
128 KByte 348 Mark und bei 64 KBy- 
te 275 Mark. 

Neben der eigentlichen Karte, auf 
der auch bei den kleinen Ausfüh- 
rungen die Sockel für den Vollaus- 
bau von 512 KByte vorhanden sind, 
bekommt man ein dünnes Hand- 
buch, eine Kassette mit der System- 
software, ein Kühlblech und eine 
Isolierfolie. Die Erweiterung wird in 
den Computer eingebaut, was je- 
doch wegen der guten Bauanleitung 
nicht allzu schwer ist. Leider erlö- 
schen dadurch die Garantieansprü- 
che an den Computer-Hersteller. 
An Werkzeug wird lediglich ein 
Kreuz- und ein Schlitzschrauben- 
dreher benötigt. 

Ob alles ordnungsgemäß funktio- 
niert, erkennt man gleich an der 
neuen Einschaltmeldung. Bei der 
hier vorgestellten 256-KByte-Version 
erscheint unterhalb der üblichen 
Einschaltmeldung ein Rechteck mit 
folgendem Inhalt: 


vortex RAM-Expansion Card ID 
5 160 128 -K 
Bks Prgom Data Spl 


D ie Vortex-Speichererweiterung 


Jetzt sind auch die 37 neuen Basic- 
Befehle verfügbar. Darunter befin- 
den sich beispielsweise Grafik-Be- 
fehle wie FAST, SLOW, FRAME, 
GCHAR, GRAPER, GPEN, MASK 
und UNMASK, die aus dem 464 
schon beinahe einen 664 machen. 
Leider fehlt der FILL-Befehl, derauf 
dem CPC 464 softwaremäßig nicht 
ohne weiteres nachzubilden ist. Be- 
merkenswert ist dagegen die An- 
weisung FAST, die die Bildschirm- 
ausgabe um den Faktor 2 be- 
schleunigt. Alle anderen Befehle 
(mit Ausnahme von MON) sind für 
die Arbeit mit demerweiterten Spei- 
cher gedacht, Mit ihnen kann man 
beispielsweise eine relative Datei 
im Speicher eröffnen und verwalten. 
Erstmals lassen sich auf dem CPC 


464 Unterprogramme mit lokalen 
und globalen Variablen schreiben. 
Leider ist es unmöglich, die einzel- 
ne Variable als COMMON (allge- 
mein gültig) oder lokal zu definie- 
ren. Es werden immer ganze Berei- 
che behandelt, wie bei den bekann- 
ten Funktionen DEF INT, DEF STR 
und DEF REAL des Schneider-Ba- 
sic. Der Zeitbedarf für das Umschal- 
ten zwischen den einzelnen Bänken 
ohne Variablenübertragung liegt 
bei Yızs Sekunden pro Schaltvor- 
gang. Somit können verschiedene 
Programme gleichzeitig im Spei- 
cher gehalten und getrennt bear- 
beitet werden. Der Befehl SPOOL 
ON richtet einen 32 KByte großen 
Druckerpuffer ein, der zwar den 
Hauptspeicher verkleinert und zu 
Lasten der Rechengeschwindigkeit 
geht, aber diese Einbußen lassen 
sich, in Anbetracht der deutlich ge- 
ringeren Wartezeiten beim Aus- 
drucken von Dateien und Listings, 
leicht verschmerzen. 

Doch nun zum CP/M: Zuerst muß 
eine neue Systemdiskette für das 
CP/M mit 62 KByte Speicherplatz er- 
zeugt werden. Man erhält dann eine 
Diskette mit folgenden Files: 


$OSC.SYS 12K 
SPOOLCOM 1K 
RAMDISKCOM 1K 

Die Datei $OSC.SYS wird bei den 


Benutzern der Schneider-Disketten- 
station keine Begeisterung auslö- 


sen, denn sie verkleinert den ohne- 
hin knappen Speicherplatz noch 
weiter. Älle weiteren Systemdisket- 
ten werden nun als Kopie dieser Dis- 
kette bevorzugt. Das Programm 
»Sptest« überprüft die einzelnen 
Speicherplätze auf Fehler. Dabei 
wird jede Adresse des erweiterten 
Speichers mit einem Wert beschrie- 
ben und später wieder gelesen. 
Stimmt der ausgelesene Wert nicht 
mit dem eingeschriebenen überein, 
so ist die Speicherstelle defekt, 
»Sptest« meldet das mit Angabe der 
Speicherstelle, dem Soll- und dem 
Istwert. Aufdiese Weise werdenalle 
vorhandenen Bänke getestet. 
Esbleibt die Frage der Kompatibi- 
lität zu den alten Programmen. Dies- 
bezüglich von der Firma Schneider 
nicht unbedingt verwöhnt, sind die 
Erwartungen an die Vortex-Erweite- 
rung ziemlich hoch angesetzt. Alle 
Basic-Programme arbeiten pro- 
blemlos. Unter CP/M ist das anders, 
denn hier stellen sich manchmal un- 
gewöhnliche Effekte ein. So kann 
man normalerweise mit der Anwei- 
sung »DISCCOPY« auch unforma- 
tierte Disketten beschreiben. Nach 
dem Einbau der Speichererweite- 
rung wird die Formatier-Routine 
nicht mehr aufgerufen. Auch Pro- 
gramme, die die letzten vier Byte un- 
ter HIMEM (Adressen 42615 bis 
42619) benutzen, laufen nicht mehr 
korrekt. Diese vier Adressen benö- 
tigt nämlich die Systemerweiterung. 
Das abschließende Urteil kann 
nur lauten: Sehr empfehlenswert für 
alle, denen 64 KByte RAM einfach zu 
wenig sind. Das weitere Aufrüsten 
der kleineren Versionen der Karte 
ist problemlos mitdem RAM-undei- 
nem Logik-Baustein möglich. Auch 
für den 664 sind die Erweiterungen 
zum gleichen Preis erhältlich — al- 
lerdings ohne Basic-Erweiterung. 
Diese wird 1986 als EPROM für zirka 
40 Mark nachgeliefert.(Alfred Otto) 


Keine 
Eingabefehler 
mit »Explora« 


Mit einer Prüfsumme wird je- 
de Zeile, die Sie eingeben, 
überwacht. Fehler im Listing 
sind damit fast unmöglich. 


Wenn Sie das Programm »Explora« abtippen, haben Sie eine 
wertvolle Eingabehilfe. Eine Maschinencode-Routine über- 
wacht Ihre Arbeit daraufhin, ob sämtliche Zeichen (auch Steu- 
ersymbole) sowie Leerstellen und Zeilennummer korrekt im 
‚Speicher stehen. Nach Beenden einer Zeile mit Enter wird di- 
rektin die untere linke Ecke des Bildschirms die vierstellige He- 
xadezimalzahl angezeigt, die Sie im Listing in der eckigen 
Klammer neben jeder Programmzeile finden. 

Voraussetzung für die Überwachfunktion ist allerdings, daß 
‚Sie die Programmzeile genauso eingeben, wie sie abgedruckt 
ist. Abkürzungen, die vom Interpreter auch verstanden wer- 
den, dürfen Sie nicht benutzen (also kein »?« für »PRINT«). Auch 
müssen Sie große und kleine Buchstaben wie vorgegeben ein- 
tippen. Der Interpreter würde für »PRINT« auch »print« akzep- 
tieren — Explora hingegen nicht. Steuerzeichen und mehrere 
Leerzeichen, die in Strings aufeinander folgen, sind in ge- 
‚schweiften Klammern im Klartext angegeben. So bedeutet [5 
Space], daß an dieser Stelle fünfmal die Leertaste gedrückt 
werden muß. |CTRL A] bedeutet, daß die Ctrl-Taste gemeinsam 
mit dem »A« gedrückt werden muß (siehe im Beispiellisting Zei- 
le 430 und 440). Aber Vorsicht, daß Sie solch ein übersetztes 
Zeichen nicht mit dem ASCIl-Sonderzeichen »[« beziehungs- 
weise »]« verwechseln. Die Bedeutung der geschweiften 
Klammer erkennen Sie aber leicht, denn als ASCll-Sonderzei- 
chen steht sie meist allein. Im anderen Fall umschließt sie Con- 
trol-Zeichen oder Leerfelder. Der AUTO-Befehl darf übrigens 
nicht verwendet werden, da sonst die Prüfsumme falsch be- 
rechnet wird. 

Da die Tastatur der Schneider-Computer sehr leicht umdefi- 
niert werden kann, arbeitet jeder Benutzer mit einer anderen 
Tastenbelegung. Alle Listings in diesem Heft sind deshalb mit 
dem ASCIl-Zeichensatz ausgedruckt. Deutsche Sonderzei- 
chen werden dabei als Klammern oder andere amerikanische 
Sonderzeichen interpretiert. Benutzen Sie eine deutsche Ta- 
statur, so dürfen Sie anstelle dieser Zeichen die deutschen 
benutzen. Explora merkt dies. Welche amerikanischen und 
deutschen Zeichen sich entsprechen finden Sie in Tabelle 1. 
Das Zeichen »- « (für das »ß«) wird mit Ctrl 2 aufgerufen. 

Listing 1 ist die Routine für die Prüfsumme. Diese liegt ab 
‚Adresse 40960 im Speicher. Das Basic-Lader darf gelöscht 
werden. Eingeschaltet wird Explora mit »POKE & AO1F,&F5«, 
ausgeschaltet mit »POKE &AO1F,&C9«. Probleme kann es nur 
bei Listings geben, die ein Maschinencode-Programm (das 
sind die Basic-Lader) erzeugen. Eventuell funktioniert der 
MEMORY-Befehl nicht richtig. In diesem Fall darf er ersatzlos 
gestrichen werden. Beim Speichern der Binärfelder müssen 
alle Adressen aber genau beachtet werden. 

Der Übersicht halber sind die Zeilen-Nummern nach links 
herausgezogen. Die eigentlichen Befehle beginnen immer 
nach einer Leerstelle hinter der Zeilennummer. Listing 2 zeigt 
fünf Zeilen als Beispiel. Übrigens: Alle Programme können 

auch wie gewohnt, ungeprüft, eingegeben werden. (hg) 


>, WIR HOMESOMEFFERWORED, COM 
” N S 1. an 


Eingabe-Hinweise 


Sonderzeichen 
amerikanische 


deutsche 


$ 


Ä 
ö 
v 
ä 
ö 
ü 
Das Symbol '« steht für»! B 


Tabelle 1. Die deutschen und die amerikanischen 
Sonderzeichen im Vergleich 
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Fuer Schneider CPC 
464, 664 und 6128: 


Happy-Computers 


(ec) Martin Kotulla 


“sresesererer 


* 
IEREEREEFLLEN EEE Tre 
159 MEHORY 20959 
160 FOR i=40960 TO 41094:1READ arPOKE i,a 
ı 
178 POKE %160,&CDsPOKE &161,4B:POKE &162 
‚&B9:POKE %163,&5A 
180 POKE #164,&2:POKE &165,&C0:POKE %166 
‚&32: POKE %&167 ,&6D 
199 POKE %16B,&1:POKE &169,&C9:CALL &160 
200 cpcversion=PEEK (&16D) 
210 IF cpcversion“@ THEN 290 
220 IF cpcversion<>i THEN 248 
230 POKE &ABB6,%5B:POKE LABIS,%SB:POKE & 
AQ19 ,u5C 
248 POKE &AB24 ,LBA:POKE LAQSS,&BA 
250 GOTO 298 
260 IF cpcversion<>2 THEN PRINT 
C-464/664/6128! "END 
270 POKE &ABB6 „LSE: POKE 
AB19 ,u5F 
288 FOKE &AB24 ,&BA:POKE &AQSS,uBA 
290 PRINTAPRINT:PRINT "Checksummer ist a 
ktiviert!" 

388 PRINT:PRINT "Einschalten: POKE KABIF 
‚ar! 
31@ PRINT:PRINT "Ausschalten: POKE LABIF 
„&C9" PRINT 
32@ CALL &AB®S * Checksummer einschalten 
33@ DATA &0®, Tao, 200,200, 400,%21,&3A,&BD 
‚&11 ,802,&AQ, 401,803, 400, SED, BO" 
340 DATA’ LSE,LCS,&32, USA, BD,&21 ‚KIC,kAD 
1%22 ‚&SB,&BD,%C9,&CD,402,AB,uFS 
350 DATA’ &C5,&D5,%ES,&Q1,&A4,LAC,u21,800 

100 ,BA,&SF ‚u16,L00,417 ,LOS,LFE 
368 DATA E6 EDD,L21 LA LAC LO 
1400 ‚408 ,&DD%7E,LOQ,&5F ‚u16 
S7a DATA KISTRRA LES, LAD, KA7LUP1 „u09 DD 
E25 UFE ‚LOO u20 LED USE LUD, JECD 

390 DATA’ LSA,LEB,LSE,KOA,LCD,USA,LBB,LSE 
&5B,&CD,&5A,&BB,&7C ,LCD,&76,&AB 
39@ DATA’ &7C,CD,L7A,EAQ,&7D, WCD,U76, LAG 
zuzo LCD ,&7A, AB, &SE,LSD,ECD)% 

DATA’ SBB, LEI JEDI,ECI,EFL, vos, KIF,KIF 

“er, LIF BE6, AUF ‚UC6)LSO,LFE,LSA 
410 DaTa'&38,102,406,%07,4C3,L5A,&BB 
420 END 


"Kein CP 
SABIS,RSE:POKE & 


Listing 1. »Explora« macht Fehler fast unmöglich 


400 
410 
420 
430 


440 


DATA KBB,LEI AUDI ACH BELSECHLIFSEIF 
„KIF,BIF)SE6,KOF ‚Ch ESQ,LFE,ESA 
DATA 439,802, 406, &07,&C3,&5A,&BB 


PRINT 
PRINT "(5 SPACEIWWIC" 


Listing 2. Im Beispiel müßten Sie die Zeile 400 wie folgt 
eingeben (MODE 1): 
400 DATA &BB,&E1,&D1,&C1,&F1,&:C9,&1F,&1F 
‚SAF&IF,&E6,&0F,&C6,&30,&FE,&3A. 

Zeile 430 besteht in der PRINTAnweisung aus den vier 
Tastendrucken Ctri A, Ctri Y, Ctrl Y und Cirl A. Zeile 440 
aus dem String ” wwii” 


LC4C01 
L633C] 
TEE48] 
"CTRL APLCTRL YILLTRL VILCTRL 

C8DB8] 
CaCDEI 


- s 
hr RANPPYM 5 i 
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Datenfernübertragung 
muß nicht teuer sein 


Zur Datenfernübertragung brauchen 
Sie einen Computer, ein Modem, 
eine Verbindung zwischen beiden 
und ein DFÜ-Programm. Den Com- 
puter haben Sie und das Modem müssen 
Sie kaufen. Den Rest bekommen Sie hier. 


le ist speziell für den 300-Baud- 

Betrieb ausgelegt. Trotzdem 
kann sie per Software auf 1200 Baud 
umgestellt werden. _ 

Der Preis für unsere Bastelei rich- 
tetsich hauptsächlich nach dem ein- 
gesetzten Spannungswandler. Mit 
Bausteinen der Serie 75188 und 
79189 ist sie günstiger (maximal 100 
Mark). Allerdings braucht man 
dann von außen Spannungen und 
zwar +12 Volt und -12 Volt. Mit dem 
integrierten Spannungswandler 
NM232C steigt zwar der finanzielle 
Aufwand um zirka 30 bis 40 Mark, 
aber man braucht auch nur eine 
Stromversorgung mit 5 Volt. 

Kernstück der Schnittstelle ist der 
integrierte Seriell/parallel-Wandler 
6850. Er wird über zwei Register 
programmiert und bedient. Von Ba- 
sic aus geht das mit den Befehlen IN 
und OUT. Ein weiterer wichtiger Teil 
der Schaltung ist der Frequenzge- 
nerator. Er erzeugt mit einer Stan- 
dard-Quarz-Schaltung die Frequenz 
von 2,4576 MHz. Diese liefert, je 


D: hier vorgestellte Schnittstel- 


nachdem wie oft sie geteilt wird, alle 
nötigen Baudraten. Der 2x4-Bit-Zäh- 
ler 7415393 teilt die 2,4576 MHz auf 
die Frequenz von 19,32 kHz. Vom 6850 
werden diese 19,2 kHz noch einmal 
geteilt, so daß letztendlich die Baud- 
rate von 300 (bei Teilung durch 64) 
oder von 1200 (bei Teilung durch 16) 
zur Verfügung steht. 

Für die V.24-Pegel brauchen wir 
einen Spannungswandler, Entwe- 
der den integrierten Spannungs- 
wandler NM232C oder Standard- 
V.24-Treiberbausteine, von denen 
einer allerdings mit +12 und -12 Volt 
versorgt werden muß. Das noch ein- 
gesetzte IC 74LS08 dient zur Adreß- 
decodierung. 

Beim Schreiben in das Controlre- 
gister (Adresse FBFOhex) müssen 
bestimmte Parameter gesetzt wer- 
den. 

BitOund 1 bestimmen die Teilerra- 
te des Chips. Hier kann also per Soft- 
ware festgelegt werden, wie oft die 
Frequenz, die an den Pins 3 und 4 
anliegt, geteilt werden soll. Die Wer- 
te finden Sie in Tabelle 1, 


Bit1 Bito 
0 0 


Programms). 


Die Teilerrate ist 1. Diese Teilerrate ist bei unserer Anwendung nicht 
zu empfehlen, da es bei der asynchronen Datenübertragung zu 
„Interferenzstörungen« kommt. 

Teilerrate 16. Das bewirkt bei unserer Schaltung eine Baudrate von 
1200 Baud (beim Senden und Empfangen). 

Teilerrate 64 hat eine effektive Rate 300 Baud zur Folge. 

Master Reset, wird in Bit 1 und Bit 0 eine Eins geschrieben, wird der 
6850 vollständig zurückgesetzt (empfehlenswert am Beginn eines 


4 Tabelle 1. Bit O und 1 bestimmen die 


Bantrote Tabelle 2. Bit 2, 3 und 
4 steuern das Übertragungsformat 7 


‚Die Bits 2 bis 4 bestimmen das 
Übertragungsformat der Schnittstel- 
le (siehe Tabelle 2). 


7 Bits + Even Parity + 2 Stop-Bits 
7 Bits + Odd Parity + 2 Stop-Bits 
7 Bits + Even Parity + 1 Stop-Bit 


Bit4 Bit3  Bit2 

{) 0 0 

{) {) 1 

0 1 {) 

0 1 1 7 Bits + Odd Parity + 1 Stop-Bit 
1 {) ° 8 Bits + 2 Stop-Bits 

1 {} 1 8 Bits + 1 Stop-Bit 

1 1 {) 

1 1 l 


8 Bits + Even Parity + 1 Stop-Bit 
8 Bits + Off Parity + 1 Stop-Bit 


En 


Die von Mailboxen am häufigsten | 
verwendeten Übertragungsformate | 
sind 100 (8 Bit und 2 Stop-Bit) und 101 | 
(8 Bit und 1 Stop-Bit). 

Die Bits5und 6 müssen beinorma- 
len asynchronen Anwendungen ' 
beide O sein. Wird in beiden eine 1 
geschrieben, dann wird ein Break- 
Signal geschickt, was nichts ande- 
res bedeutet, als daß die V.24-Sen- 
deleitung für eine bestimmte Zeit 
auf einen festen Pegel gelegt wird, 
Bit 7 ist ebenfalls immer 0, 

Wenn Sie die Schnittstelle fertig 
aufgebaut haben, dann sollten Sie 
erst noch einmal alles prüfen. Eine 
gute Testmöglichkeit von seriellen 
V‚24-Schnittstellen ist das Verbinden 
der Sende- und Empfangsleitungen 
(Pin 2 und 3), so daß die Schnittstelle | 
sich selber Daten schickt. Listing n 
testet Ihre Schnittstelle. 

Nach dem Anschließen En 
Schnittstelle und dem Starten dieses 
Testprogramms müssen gedrückte 
Tasten als Buchstaben auf dem Bild- 
schirm erscheinen. Mit solch einem 
Programm können bereits über ei- 
nen Akustikkoppler Mailboxen be- 
dient werden. 


Die Programmierung 
des 6850 


Für die Schaltung gibt es zwei An- 
schlußmöglichkeiten. Entweder am 
herausgeführten Datenbus oder im 
Innern des Computers direkt auf 
dem Sockel des 280. Der 280 selbst 
wird dann in die Schaltung inte- 
griert. In beiden Fällen werden alle 
benötigten Signale erreicht. Beide 
Lösungen haben aber ihre Schwä- 
chen. 

Der Anschluß am Datenbus führt 
leicht zu einer wackeligen Lösung. 
Auch die Diskettenstation ist schwie- 
rig gleichzeitig mit anzustecken. Der 
Haken bei der Einbaulösung ist, daß 
eventuell noch bestehende Garan- 
tie erlischt. Die Schaltung ist leicht in 
der Wire-Wrap-Technik aufzubau- 
en, genauso einfach ist allerdings 
auch eine gelötete Verdrahtung auf 
einer Lochrasterplatine. Für den 
Einbau der Schaltung in den Com- 
puter ist ein 40poliger Wire-Wrap- 
Sockel notwendig, da die Beinchen 
lang genug sein müssen, um in den 
Sockel zu passen. 

Wie bereits oben gesagt, hat der 
6850 zwei Register, die beide sowohl 
beschrieben als auch gelesen wer- 
den können. In das eine Register, 
das Datenregister, werden die zu 
übertragenden Daten hineinge- 
schrieben. Beim Empfang werden 
hieraus die Daten abgeholt. Es hat 


1/86 Sonderheft Schneide: 
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die Adresse FBFlhex. Das andere 
Register dient zur Steuerung des 
Bausteins, es ist das Control-Regi- 
ster. Seine Adresse ist hexadezimal 
FBFO. Die Bedienung dieses Regi- 
sters ist leider etwas kompliziert, 
‚Beim Lesen aus dem Register erhält 
man folgende Informationen (bitwei- 
se aufgeschlüsselt, Tabelle 3): 


Das Maschinencode-Modul 
»FLIRTM.BIN« ist darauf ausgelegt, 
ein Datenfernübertragungspro- 
gramm in Basic zu unterstützen, Es 
beginnt bei Adresse 7000hex, be- 
sitzt einen interruptgesteuerten 
Empfangsbuffer (4 KByte) und einen 
interruptgesteuerten Druckerbuffer 
(ebenfalls 4 KByte groß). Mit diesen 
Buffern wird die Bedienung der 
Schnittstelle zeitlich gesehen pro- 
blemlos. Das Programm kann mit 
dem abgedruckten Basic-Lader ge- 
neriert werden. 

Die Bedienung des Modulserfolgt 
über RSX-Befehle: 
INIT 
Mit diesem Befehl werden die Buf- 
fer initialisiert und die Schnittstelle 
auf das Übertragungsformat 8 Da- 
tenbit und 1 Stop-Bit gesetzt. 
SEND,asc("a") 
Mit diesem Befehl wird ein Zei- 
chen über die Schnittstelle ge- 
schickt. Es wird dabei so lange ge- 
wartet, bis die Übertragung des vor- 
hergehenden Zeichens beendet 
wurde. 
RECV,@a 
Mit diesem Befehl wird der inter- 
ruptgesteuerte Empfangsbuffer 
ausgelesen. In der Integer-Variable 
a befindet sich der ASCII-Code des 
empfangenen Zeichens. 
PRINT,asc("a”) 
Ein Zeichen wird an den Drucker- 
buffer übergeben. Das Drucken 
des Zeichens übernimmt die Inter- 
_ upt-Routine, 


ist gesetzt, wenn das chipinterne Datenregister voll ist, also im 
Datenregister ein aaa Zeichen abgeholt werden kann. 

rtragung eines zu sendenden Zeichens fertig ist, 
das bedeutet, das nächste Byte darf in das Datenregister geschrieben 


Hier ist der logische Pegel von Pin 33 (Data Carrier Detect) zu finden. 
Hier liest man den Zustand der Leitung CTS (Clear to Send), in diesem 


ist gesetzt, wenn ein sogenannter »Framing Error« erkannt wurde. 

Dann stimmt irgendetwas an den Übertragungsparametern nicht. 

ist gesetzt, wenn ein Zeichen aus dem Datenregister nicht rechtzeitig 
geholt wurde und dieses mit dem neuen Zeichen überschrieben wurde 


ist gesetzt, wenn beim Datenempfang ein Parity-Error erkannt wurde, 
Dazu muß allerdings die entsprechende Betriebsart eingestellt sein. 
enthält eine logische Verknüpfung aus den Signalen CTS, TDRE, DCD, 
Overrun und so weiter (Interrupt request). 


Bit 0 
Bit 1 ist gesetzt, wenn die 
werden, um übertragen zu werden. 
Bit 2 
Es ist also immer nicht gesetzt. 
Bit 3 
Beispiel immer gesetzt. 
Bit 4 
Bit 5 
(Ovemun Error). 
Bit 6 
Bit 7 


‚Wenn der Buffer voll ist, so wer- 
den die einzutragenden Zeichen 
ignoriert, das heißt sie gehen ver- 
loren. Allerdings müßten bei einer 
300-Baud-Übertragung 2,2 Minuten 
lang ununterbrochen Daten eintref- 
fen, um den Buffer wirklich ganz zu 
füllen. 

Das Maschinencode-Modul muß 


Tabelle 3. Die Informationen des Control-Registers 


am Anfang einmal mit dem Befehl 
CALL &7000 initialisiert werden. Von 
diesem Modul werden zusätzlich 
die Diskettenfehler »FILE NOT 
FOUND« und »DISK FULL« und so 
weiter abgefangen, damit beim Auf- 
treten eines solchen Fehlers das 
Programm nicht abgebrochen wird. 
Tritt solch ein Fehler auf, so wird das 
Basic-Programm mit der Meldung 
»Error 50« fortgesetzt. Diese Mel- 
dung kann dann mit dem Befehl ON 
ERROR GOTO abgefangen werden. 
Das bedeutet aber, daß das Maschi- 
nencode-Modul den Ready-Modus 
nicht zuläßt. Es kann daher nur von 
Programmen aus aufgerufen und 
bedient werden. In der Error-Routi- 
ne wird dann der Diskettenfehler 
durch den Inhalt der Variablen ERR 
erkannt, 


Der Befehlssatz ist 
reichhaltig 


Das Übertragungsprogramm aus 
Listing 3 enthält als Kern das be- 
schriebene Maschinencode-Modul 
»FLIRTM.BIN«. Dadurch treten kei- 
ne Geschwindigkeitsprobleme auf. 
Das Basic kann gemütlich die gebuf- 
ferten Daten verarbeiten. Dieses 
Programm läuft nur auf dem CPC 
464 mit Diskettenlaufwerk. Nach 
dem Starten finden Sie im oberen 
Teil des Bildschirms das »Komman- 
do-Fenster«. Es wird benutzt um Be-. 


fehle einzugeben, ohne daß dabei 
der untere Teil des Bildschirms zer- 
stört wird. In den Befehlseingabe- 
modus gelangt man durch zweimali- 
ges Drücken der Taste Esc. Die 
dann einzugebenden Anweisungen 
sind weitgehend am CP/M-Be- 
triebssystem orientiert. Man kann 
durch die Bufferstruktur beliebig 
lang in diesem Fenster arbeiten und 
Befehle ausführen lassen, ohne daß 
dabei Daten verlorengehen. Vor- 
aussetzung ist allerdings, daß der 
Host-Rechner der Mailbox auf das 
XON/XOFF-Protokoll vorschriftsmä- 
Big reagiert. 

Im Fenster können folgende Be- 
fehle aufgerufen werden (Eingabe 
wie unter CP/M): 

A: Das Laufwerk A ist ab sofort 
Standardlaufwerk. 

B: Umschalten auf Laufwerk B. 

BYE: Verlassen des Programms. 

DIR: Das Inhaltsverzeichnis der 
Diskette wird angezeigt. Dabei sind 
wie beim CP/M auch einzelne Datei- 
namen mit den Wildcards * und ? 
möglich. 

DL CLOSE: Die Datei wird ge- 
schlossen und auf Diskette endgül- 
tig angelegt. 

DL OFF: Download-Modus aus. Mit 
DL ON und DL OFF kann das Über- 
tragen der empfangenen Daten in 
die durch DL OPEN spezifizierte Da- 
tei gestoppt und gestartet werden. 

DL ON: Der Download-Modus 
wird angeschaltet, vorher muß der 
Befehl DL OPEN ausgeführt worden 
sein. Alle Zeichen, die vom Compu- 
ter empfangen werden, werden in 
die durch DL OPEN spezifizierte 
Datei geschrieben, Braucht der 
Computer Zeit, um empfangene 
Daten abzuspeichern oder zu bear- 
beiten, dann stoppt er das Senden 
des Hosts mit XOFF und startet es 
danach wieder mit XON. 

DL OPEN: Die Download-Datei 
wird geöffnet. 

ERA: Wie CP/M-Befehl ERA, mit 
Dateinamen und Wildcards. 

ESC: Ein Escape-Zeichen wird an 
den Host-Rechner geschickt. 

FDX: Die Übertragung von Daten 
erfolgt im Fullduplex-Modus, das 
heißt der Host-Rechner muß emp- 
fangene Zeichen zur Bestätigung 
wieder zurückschicken. 

HDX: Halfduplex — Der Host 
schickt empfangene Zeichen nicht 
zurück, das Terminalprogramm er- 
zeugt sie selber. 

PRN OFF: Schaltet den Drucker 
wieder aus. Zeichen, die sich noch 
im Druckerbuffer befinden, werden 
noch ausgegeben. 

PRN ON: Der Drucker wird einge- 
schaltet (natürlich gebuffert), das 
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heißt alle Zeichen, die empfangen 
werden, werden auch auf dem 
Drucker mitprotokolliert. 

TYPE: Wie CP/M-Befehl TYPE. 
Die angegebene Datei wird im Fen- 
ster ausgegeben. Die anzuzeigende 
Datei sollte im ASCII-Format vorlie- 


gen. 

UL E: Upload-Echo-Mode — Eine 
Datei wird an den Host-Rechner ge- 
schickt. Das Unterprogramm wartet 
nach dem Senden eines Zeichens 
auf das Echo vom Host. Diese Be- 
triebsart ist nur bei Fullduplex prak- 
tisch. 

UL X: Upload mit XON/XOFF-Pro- 
tokoll. Die Datei wird an den Host 
übertragen, dabei kann der Host 
die Ausgabe der Datei mit dem 
XON-XOFF-Protokoll stoppen und 
starten. 


22 pF Kondensator 


Spannungswandler: 


entweder 1 NM232CV.24-Treiber mit 
integriertem Spannungswandler 
‚oder 1 75189- und 

1 75188-V.24-Treiber. 


Sonstiges: 

Sockel, 

Platine und so weiter, 

je nach Art des Aufbaus. 


Tabelle 4. Die Bauteileliste 


Durch die einfache Erkennunger- 
leichtert, können beliebig viele zu- 
sätzliche Befehle (wie zum Beispiel 
deutscher Zeichensatz oder deut 
sche Tastatur) hinzugefügt werdeı H 
Dazu muß einfach eine Zeile mit der 


Befehlserweiterungen | 


Syntax »IF Befehl$="xyz" THEN 
GOSUB 2000« eingebaut werden. 
Noch ein Hinweis zum Betrieb der 
Schnittstelle: Die Datenübertra- 
gungspins 2und 3 des V.24-Steckers 
können, je nach Art des Geräts, das 
angeschlossen werden soll, auch 
vertauscht richtig sein. Deshalb soll- 
te man auf der Platine die Möglich- 
keit vorsehen, die beiden Pins ein- 
fach vertauschen zu können. 
(Thomas Obermair) 
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18 DEFINT a-z [32C6]1 1148 DATA 1D,1F,80,7E,78,C3,1E,70,82FB [DIEB] 
20 d=&FBFi:REM Datenregister L1DAEI 1158 DATA C5,2D,78,C3,30,708,53,45,8367 [A798] 
so FBFO:REM Kontrollregister [6A7E] 1168 DATA 4E,C4,52,45,43,D6,58,52,8364 [B578] 
48 DUT c,&X11:REM Master Reset [@DB®] 117@ DATA 49,4E,D4,00,20,00,08,80,816B [3A34] 
5@ OUT c,&X18B1@:REM 388 Baud und 8 Date 1188 DATA 1E,32,C3,94,CA,CD,98,71,043F [Q6F6] 
nbits 2 Stopbits 17548] 11798 DATA CD,9C,71,C9,C5,81,Ft B,0554 [B922] 
60 a$=INKEY$: IF a$<c>"" THEN DUT d,ASCias 1288 DATA ED,78,C1,C9,C5,801,F@,FB,25A@ [B124] 
> [DSB8] 1218 DATA ED,79,C1,C9,C5,81,F1,FB,85A2 LE72ZE] 
70 a=INPic):IF a AND 1 THEN a=INP(d):PRI 1228 DATA ED,78,C 9,05,@1,F1,FB,85A1 [592C] 
NT CHR&(d) [8F28] 1238 DATA ED,79,C 7,3E,803,CD,A4,84A2 LEBZE] 

88 GOTO 48 [328E] 1248 DATA 78,3E,1 D,A4,70,C09,21,838F [34D4] 
125@ DATA 80,88,22,DA,78,22,DC,78,835A [B68A] 

Listing 1. Ein Testprogramm für RS232-Schnittstellen 1260 DATA 21,0@,90,22,DE,70,22,E0,0323 [85481 


1278 DATA 70,C9,00,00,00,20,08,28,08137° LESEB] 
1288 DATA 808,08,C5,23,22,FA,70,01,0275 L[D8461 
1290 DATA FF,8F,37,3F,ED,42,20,05,0358 LCDF2] 


E 1308 DATA 21,00,80,C1,C9,2A,FA,7®,0SBF LDDCAI 
131@ DATA C1,C9,00,08,C5,23,22,14,02AB [12683 
10 PRINT tscic) 1320 DATA 71,@1,FF,9F,37,3F,ED,42,03B5 [79901 
100 MEMORY &6FFF:zeile=19008 tc852] 133@ DATA 28,05,21,00,90,C1,C9,2A,@28A [3864] 
110 FOR 7000 TO &71D® STEP B:check=®B L[D9321 1348 DATA 14,71,C1,C9,00,00,2A,DA,@313 [BC7C] 
120 FOR TO 7:READ d$:d=VAL("R"+d$) sc 1350 DATA 78,ED,4B,DC,70,37,3F,ED,0457 [5026] 
heck=check+d:POKE x+a ,dsNEXT 184C8) 1568 DATA 42,CA,31,71,2A,DA,70,7E,05A8 LADD2I 
15@ READ d$: IF VAL("&"+d$)<>check THEN 2 137@ DATA CD,E2,7@0,22,DA,70,37,3F ,84@1 CD6C41 
oo 155561 1388 DATA C9,37,C9,2A,DE,7@,ED,4B,8479 LBDSCI 
140 zeile=zeile+1@: PRINT CHR$(13); 139@ DATA E@,70,37,3F,ED,42,CA,4E,04@D L[2B14] 
";zeile;"okt& SPACE) NEXT LEICCI 1400 DATA 71,2A,DE,7@,7E,CD,FC,78,084A® L[B324] 
150 PRIN RINT "alles ok. tE14E] 1418 DATA 22,DE,78,37,3F ,C9,37,C09,83AF [4286] 
16@ SAVE "flirtm.bin" ‚b,&7088,&1D® LıFBAJ 1420 DATA 2A,DC,78,CD,E2,7@,ED,4B,@4CD [8862] 
170 PRINT "Datei flirtm.bin angelegt. ": 143@8 DATA DA,70,37,3F,ED,42,CA,6E,8427_ [4418] 
PRINT:END tar64] 1440 DATA 71,2A,DC,78,77,CD,E2,70,@47D LASFCI 
208 PRINT CHR$(13)+CHR$(7)+"Fehler in Ze 1458 DATA 22,DC,70,37,3F ,C9,37,C09,@3AD [5486] 
ile ";jzeilesEND 12146] 1460 DATA 2A,EB,70,CD,FC,7@,ED,4B,04EB L1C6A] 
1000 DATA 01,73,70,21,8C,70,CD,D1,839F t2cA@] 147@ DATA DE,78,37,3F,ED,42,CA,BE,844B TIEB46] 
1810 DATA BC,SE,CS,32,81 ,AC,21,% [F&CcO] 1480 DATA 71,2A,E0,70,77,CD,FC,70,049B L[AE84] 
1020 DATA 70,22,02,AC,CD,C7,78,Ci LOCC6] 1490 DATA 22,E0,78,37,3F,C9,37,C09,83B1 LIFC6] 
1850 DATA BC,70,CD,A9,71,C9,CD,9 [2E40] 1508 DATA CD,2E,5D,D8,CD,33,71,D8,08409 [@E64] 
1ma@ DATA 70,CB,4F,CA,1E,70,DD,7 L&Can] 151@ DATA CD,31,BD,C9,CD,9C,78,E6,8543 L[443E] 
1050 DATA 0@,CD,B4,70,C9,CD,43,71 L43DA] 1528 DATA 81,C8,CD,AC,78,CD,58,71,0440 [&DD8] 
1060 DATA DD,66,81,DD,6E,88,77,253, [BEB4] 1538 DATA C9,F3,81,B8,71,ED,43,3B,8451 C3DD41 
1970 DATA SE,80,77,C9,DD,7E,08,CD,@3A6 [A712] 1540 DATA B9,3E,C3,32,3A,B9,FB,C9,084A3 L[513A] 
1880 DATA 70,71,C9,CD,16,71,DA,59,0431 tBSBE] 155@ DATA ES,CS,D5,F5,CD,95,70,F1,86537 LBEICI 
1090 DATA 70,E6,7F,21,5C,7@,BE,CA,B44A [E912] 1568 DATA D1,C1,E1,88,DA,70,B9,03,0541 LE9EBI 
11900 DATA 59,70,CB,7E,C0,23,C3,4E,0406 1[97C6] 1578 DATA 3D,B7,00,00,00,00,00,00,00F& LFS2AJ 
111@ DATA 70,35E,00,C9,01,02,85,04,B181 1p218] 1580 DATA 20,00,20,00,00,00,00,00,0008 [3390] 
1120 DATA 05,86,0E,8F,10,11,12,13,8@6E 13@32] ar 2 2 ri 
1138 DATA 14,15,16,17,18,19,1A,1C,808BD [1378] Listing 2. Der Basic-Lader für unser Maschinencode-Modul 
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18 MODE 2 LDFF@J „PRN ON,PRN OFF,TYPE":PRINT "(29 SPA 
2@ DEFINT a-z [5208] CEIUL E,UL X,DL’OPEN,DL CLOSE,DL ON, 
32 MEMORY L6FFF [2F54J DL OFF(3 SPALEI":GOTO 400 1497AJ 
40 LOAD "Flirtm.bin" LaCFAI &@0@ CALL &BBB4 teB10] 
SQ CALL 87000 L625C3 LAZZEI 
&0 ON ERROR G0TO 690 LISCAI [D452] 
7@ DIM dibuf (10@@) :diptr=1 LAADCI CADEEI 
80 ein=-1:aus=®: xon=17:xoff=19 [58281 EDD32] 
90 drucker=aus:hdx=aus: dload=aus EFCBEI CCB48] 
100 GOSUB 648 E48D63 650 KEY DEF 66,1,0,8,8 LCF2@1 
11 GOSUB 398 £87CAJ &6@ KEY DEF 79,1,8,8,8 LE4SA1 
12@ WINDOW #1,2,79,2,7 16274] 670 KEY DEF 16,1,12,12,12 E1B4C] 
138 WINDOW #8, 1,8@,9,25 C4ADB] &8@ RETURN CABSCI 
14@ WINDOW SWÄP"@,1:PRINT “FLIRT - by T. 69® REM ——----- errors abfangen ——- 
Obermair":WINDOW SWAP @,1 [D6ECI LCB2AI 
15@ GOSUB 738 [82E8] 7@@ IF ERR=5® THEN CLOSEIN: CLOSEDUT:PRIN 
160 as=INKEY$: IF a$<>"" THEN GOSUB 198 L[3@E4]1 T:PRINT "Diskettenfehler": 
170 a=@: |RECV,@a: IF a<>@ THEN GOSUB 25@ LEAA&I PRINT "alle Dateien gesch 
188 G0TO 168 CBES21 lossen. ":RESUME 498 £312C1 
19@ REM — - tastatur -> schnittstell 7ı@ PRINT "interner fehler";ERR}"in Zeil 
e - L7CEEI e"jERL L44AEI 
200 IF a$=CHR$(@) THEN GOSUB 37@ L329C] 728 6010 728 £7C561 
210 IF a$=CHR$(12) THEN CLS+RETURN LE2881 738 CALL &BBB1:RETURN [BE46] 
22@ !SEND,ASC (a$) [39661 740 REM input-buffer loeschen - 
230 IF hdx=ein THEN PRINT as; [75FAJ = - CF5881 
240 RETURN tA72C3 75@ FOR i=1 TO ı@ L6SBC] 
250 REM — schnittstelle -> bildsch 76@ WHILE a<>@: IRECV,@a:WEND tOFFB] 
E u 11106] 77@ NEXT i=RETURN L6D48] 
y 26@ PRINT CHR$(a); L71A6] 788 REM — uplodd - echo mode -—————— 
27@ IF drucker=ein THEN {PRINT E29AC9 2 168681 
28@ IF dioad=! THEN dibuf (diptr)=ardiptr 798 PRINT "Upload - Echo-Mode" [9368] 
=diptr+1zIF diptr=9@® THEN GOSUB 111 800 PRINT "Dateiname: ";:LINE INPUT dn# L1&DCI 
® LCC843 81® GOSUB 74B:REM buffer clear ED7A6] 
290 RETURN L9D36] 820 OPENIN dns L3A321 
300 REM -————— fenster zeichnen -———— LEFFCI 85@ WHILE (NOT EDF) AND INKEYE="" 14398] 
310 PRINT CHR# (150) ;STRING$ (78, CHR$ (154) 840 LINE INPUT #9,2$:24=2$+CHR$ (&D) +CHR$ 
IH CHR (156) 5 [22761 (EA) 127503 
32@ FÜR i=1 TO & 130581 850 FOR i=1_TO LEN(z$) 109981 
33@ PRINT CHR$ (149) STRING£(78," ");CHRFE 860 ISEND,ASC (MID$(z#,1,1)) [872E] 
(149; LB77E1 87@ PRINT MID$(z#,i,1); to48C1 
34@ NEXT i LEBFEI 880 GOSUB 1948 [3144] 
350 PRINT CHRF (147) ;STRING$ (78, CHR$ (154) 89@ NEXT i c43121 
I 5CHRE (153) 5 13884] 900 WEND: CLOSEIN: RETURN C6E981 
N 36@ RETURN £cc32] 910 REM upload - xon-xoff-mode — 
N 378 REM ---———— ESC - Funktionstastenver Ba L6A9CI 
i waltung -—-—— CABSCI 92@ PRINT xon/xoff mode" L7CF4] 
38@ KEY DEF 79,1,127,127,127 L90A41 930 PRINT "Dateiname: ";sLINE INPUT dn# LIiSE41 
39@ WINDOW SWAP &,1 19838] 940 GOSUB 740:REM buffer clear L&6AE] 
408 PRINT ">"5:CALL &BBBI:LINE INPUT bef 950 OPENIN dns [2934] 
ehls LD9C6] 960 WHILE (NOT EOF) AND INKEYS="" LEC9BI 
418 befehl$=UPPER$ (befehl $) [758E1 970 LINE INPUT #9,28:24=26+CHR$ (&D) +CHR$ 
420 IF befehl$="ESC" THEN !SEND,27:PRINT (aA) L26B8] 
"ei ‚chickt":G0T0 408 tA21a] 980 FOR i=1 TO LEN(z$) Cacagı 
430 IF befehl#="BYE" THEN !BASIC taBSC] 998 !RECV,@a: IF a=xoff THEN GOSUB 1940: R 
# 448 IF MID$(befehl#,1,3)="DIR" THEN !SEN EM wait bis xon L961E] 
D,xoffim$=MID$ (befehl#,5): 1008 !SEND,ASC(MID$(z$,1,1)) LA1741 
!DIR,@m$: ISEND,xon:G0TO 4 101@ PRINT MID$(z$,1,133 caa52] 
oo tBC98J 1@2@ NEXT i L8D561 
450 IF befehl$="A:" THEN ISEND,xoffz Ar! 103@ WEND: CLOSEIN: RETURN L3FE6] 
SEND,xon:PRINT "drive A aktiv": 1048 REM ----- wait bis irgendeinzeichen 
G0TO 488 tDcec3 oder xon L77EE1 
460 IF befehl$="B:" THEN ISEND,xoffz Br! 1050 a=@:WHILE a=@: IRECV,@a:WEND:RETURN [36141 
SEND,xon: PRINT "drive B aktiv": 1868 REM ---— di-open — [79841 
60T0 488 LF8941 107® PRINT "download - open" EFDABI 
478 IF MID$(befehl$,1,3)="ERA" THEN !SEN 1088 PRINT "filename: "5:LINE INPUT difn$ 
D,xoffzm$=MID# (befehl$,5): 128141 
!ERA,@m$: ISEND,xon:G0T0 4 1098 IF di#ns="" THEN RETURN 173621 
ao 152821 1180 !SEND,xoff:OPENOUT difnst ISEND,xons 
480 IF MID$(befehl$,1,4)="TYPE" THEN !SE dlo=13 RETURN LF22A1 
ND,xoffzOPENIN MID$(befehl#,6): 11 — abspeichern ECC7EI 
WHILE (NOT EOF) AND INKEY 1120 ISEND,xoff £2CD21 
x #="":LINE INPUT #9,zeile$s:PRINT zeil 113@ FOR i=1 TO 899:PRINT #9,CHRS(dibuf ( 
es: WEND: CLOSEIN: {SEN i))5ENEXT i LBF2AI 
D,xon:60T0 490 [SCSEI 1148 diptr=1: !SEND,xon: RETURN L6SEA] 
490 IF befehl$="FDX" THEN hax=aussPRINT 115@ REM -————. ad an E1AGAI 
"fullduplex":60T0 400 173521 116® IF dio=® THEN PRINT “erst oeffnen": 
500 IF befehl$="HDX" THEN hax=ein:PRINT RETURN LBiFBI 
"halfduplex":G0TO 408 L1SFc] 117@ PRINT "di ein":dload=1:RETURN [80981 
519 IF befehl$="PRN ON" THEN drucker=ein 118@ REM --——-——- dl aus -———-—_-- [24081 
PRINT "drucker eingeschaltet":60T0 1198 PRINT "di ausgeschaltet" :dload=@:RE 
400 L6S6E1 TURN LESFCI 
520 IF befehl$="PRN OFF" THEN drucker=au dioad close ————— 
s:PRINT "drucker ausgeschaltet": _ LEEDS] 
GOTO_498 TABEBI 121@ ISEND,xoff:FOR i=1 TO diptr-1:PRINT 
530 IF befehl$="UL E" THEN GOSUB 788: 60T #9 ,CHR& (dibuf (1) 53 NEXT i 181543 
0_408 117943 1215 PRINT #9,CHR$(26);:REM EOF MARKER  [351AJ 
548 IF befehl$="UL X" THEN GOSUB 10:07 1220 CLOSEOUT:dIptr=1:dlo=®:dload=auss IS 
0 400 111881 END,xon LFS58J 
550 IF befehl$="DL OPEN" THEN GOSUB 19868 123@ PRINT "ok, geschlossen. ":RETURN L87C61 
:60T0 408 TBAA&I 
56@ IF befehl#="DL ON" THEN GOSUB 1150:6 
0To 400 LBF7EI 
570 IF befehl$="DL OFF" THEN GOSUB 1180: 
SOTO 490 LF7@21 
se@ IF befehls="DL CLOSE“ THEN GOSUB 128 ® 5 Listing 3. 
2 G0T0 Br 
59® IF befehl$<>"" THEN PRINT ” Befehlsu Das DFÜ-Programm 
ebersicht: DIR,HDX,FDX,A: „B: „ERA,BYE ist überwiegend in Basic geschrieben 
i; Ma 
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® er Schneider ist serienmäßig 

Reset ohne Datenverlust D:::==:: 

gestattet. Dieser arbeitet aller- 

. - dings nur softwaremäßig, Wenn 

[394 Nach einem Zurücksetzen des Com- .:= von einem Assembler-Pro 

1 H gramm der Interrupt unterbunden 

© puters sind normalerweise alle Da- st: de: Inerup: unterbunden 

ten verloren. Besonders bei Maschi- mehr durch Benutzung der Tasten 

nencode-Routinen kein wünschens- St, CrlundESOdasisufendepro, 

werter Zustand. Aber das muß nicht sein. nur noch ein Aus- und wieder Ein- 

schalten des Computers, was aber 

mit dem Verlust aller Daten teuer 
bezahlt werden muß, 

Ein weiteres Manko im Betriebs- 
system besteht darin, daß der Spei- 
cherbereich von 40 bis ABFF hex 
beim Kaltstart (Aufruf der Adresse 


----7r- 0000 hex oder Reset mit Shift, Ctrl 
und Esc) mit lauter Nullen beschrie- 
ben wird. Daß dieser Zustand äu- 
Berst lästig ist, werden einige »Ma- 
schinencode-Programmierer si- 
cherlich bestätigen können. Ein 
noch fehlerhaftes Assembler-Pro- 
gramm bleibt mit Vorliebe in einer 
Schleife hängen, aus der es nicht 
mehr zurückgeholt werden kann. 
Der nicht zu umgehende Reset führt 
zu einem vollständig leeren Spei- 
cher, Ebenso wird beim Löschen ei- 
nes Basic-Programms mit dem Be- 
fehl»NEW« der Speicherbereich bis 
HIMEN mit lauter Nullen über- 
schrieben. Es ist nichts mehr zu ret- 
ten. Oder? 

Jedem Problem kann man natür- 
lich zu Leibe rücken. In diesem Fall 
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Bild 1. Der Schaltplan für zwei Platinen. Der Bereich A muß für den 664 und 6128 
durch C vertauscht werden. 
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gibt es zwei total verschiedene We- 
ge. Entweder man ändert die Soft- 
ware, das heißt man muß den Inhalt 


* desROMs ineinerneuen Version in 


ein Eprom brennen oder man 
schafft hardwaremäßig Abhilfe. 

Die zweite Lösung — die Hardwa- 
reabzuändern — istentschieden die 
einfachere. Sie bietet unter ande- 
rem nämlich die Möglichkeit, zwi- 
schen Originalsoftware und abge- 
ändertem Programm hin-und herzu- 
schalten. Außerdem kann Sie jeder 
benutzen, man braucht keinen 
Eprom-Brenner. 

Um diese Änderung nun anzuge- 
hen, muß man erst einmal wissen, 
wo sich die Routine, welche für den 
Löschvorgang zuständig ist, in ROM 
befindet. Beim 464 steht sie im Basic- 
ROM und zwar im Bereich CI3E bis 
C14D hex; beim 664 sowie beim 6128 
hingegen im Bereich C145 bis C154 
hex. Für unser Vorhaben sind aller- 
dings nur die Adressen C14C bis 
C14E hex beziehungsweise C153 bis 
C185 hex von Interesse. Diese drei 
Bytes enthalten die beiden Befehle 
LD (HL),A 77 
LDIR ED BO 
— wobei letzterer für das Löschen 
zuständig ist. 

Um nun den Löschvorgang zu ver- 
hindern, muß an die genannten 
Adressen nur ein NOP dasheißt der 
Wert 00 hex gelegt werden. Wie 
sich so etwas hardwaremäßig lösen 
läßt, wollen wir uns hier ansehen. 
Der Aufwand, der dabei getrieben 
werden muß ist leider ziemlich um- 
fangreich, Der Grund dafür liegt in 
der Verwaltung der Speicherberei- 
che des Schneiders, der ja zusätz- 
lich zu seinem internen ROM noch 
252 externe benutzen kann. Zusätz- 
lich belegt noch ein Teil des RAMs 
den gleichen Bereich. Um sicherzu- 
stellen, daß wirklich nur die oben 
genannten Adressen im Basic--ROM 
ausgeklammert werden, wird an 
den /O-Port »DF« ein Wert größer 
als 251 gesendet. Die Werte von 0 
bis einschließlich 251 stehen näm- 
lich für die externen ROMs zur Ver- 
fügung. 

Um diesen Wert zu erkennen und 
zwischenzuspeichern, dazu dienen 
in der Schaltung (Bild 1) die ICs 4, 5 
und 6. Die zwei Oder-Gatter des IC 
4 registrieren, wenn ein Schreibzy- 
klus auf den Port »DF« gegeben 
wird; dabei gehen die Leitung »WR« 
sowie »IORQ« auf Low-Signal, das 
heißt auf 0 Volt. Damit wird ein Be- 
schreiben eines Ports angekündigt. 
‚Um welchen Port es sich dabei han- 
delt, wird durch die Adreßbits A8 
bis AlS bestimmt. Wenn man sich 
den Wert DF00 binär (1101 1111 0000 
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0000) anschaut, soistleicht zusehen, 
daß sich das Adreßbit Al3 auf Low- 
Pegel befindet. Diese Tatsache ma- 
chen wir uns zunutze, um einen Zu- 
griff auf Port »DF« zu erkennen. 
Wenn nun alle drei Leitungen auf 
Low sind, liegt das Signal am IC 6 
Clock-Eingang an. Wenn der 
Clockeingang auf Low geht, wird 
gleichzeitig auf den Datenbus ein 
Wert gelegt, der vom IC 5 decodiert 
wird. Dabei schaltet der Ausgang 
des Gatters auf Low, wenn alle Ein- 
gänge auf High-Pegel sind. Dies ist 
nur dann der Fall, wenn ein Wert 
größer oder gleich 252 (FC hex) an- 
liegt. Ist der Schalter Sl am IC 6 ge- 
öffnet, so gelangt die Information, 
die am Eingang »D« des IC 6liegt, in- 
vertiert zu dem invertierten Aus- 
gang (Q Dies bedeutet hier, daß der 
Ausgang auf High-Pegel liegt und 
somit ein Freigabesignal an den 
restlichen Logikkreis sendet. Bei 
geschlossenem Schalter Sl liegt am 
Ausgang ein Low-Signal und der 
Rest der Logik ist gesperrt. 

Kommen wir zum Erkennen der 
Adressen C14C bis C14E hex und 
zum Ausklammern dieses Berei- 
ches. Die Adresse C14C (1100 0001 
0100 1100 binär) wird von den ICs 1 
und 2 (Abschnitt B im Schaltbild) de- 
codiert. Der Ausgang von IC 1 geht 
nur dann auf Low, wenn an den bei- 
den ICs die Adresse C14C bis Cl4F 
hex anliegt. 

Daß nur die Adressen CI4C bis 
CI4E hex Gültigkeit haben, wird von 
den Adreßbits A0 bis Al hex sowie 
den Gattern des IC 3 bestimmt. Den 
Zugriff auf ein ROM verrät uns die 
ROMEN-Leitung. Schaltet die Lei- 
tung auf Low, so greift die CPU auf 
ein ROM zu. Ebenso ist es beim 664 
und 6128, sieht man von den verän- 
derten Adressen ab. Auch hier de- 
codieren die ICs 1 und 2 (Abschnitt 
C im Schaltbild) die Adressen im Be- 
reich C150 (1100 0001 0101 0000 bin) 


bis C157 hex (1100 0001 0101 O1ll bin). 
Allerdings kommt noch ein IC hinzu. 
Dieses IC (IC 9) decodiert die 
‚Adressen A0 bis A2 hex, um sicher- 
zustellen, daß wirklich nur die 
‚Adressen C153 bis C185 hex akzep- 
tiert werden. 

Sobald alle Signale in der benötig- 
ten Form vorliegen, haben wir am 
Ausgang 8 des Gatters von IC 7 ei- 
nen High-Pegel. Dieser liegtüber ei- 
ne Diode an dem ROMDIS-Eingang 
des Erweiterungsbusses des Com- 
puters an und schaltet somit das ing 
terne ROM ab. Die Diode ist erfor- 
derlich, weil mehrere Erweiterun- 
gen auf die gleiche Leitung zugrei- 
fen. 

Gleichzeitig gelangt ein Low-Si 
gnalan den Eingang | desIC 8, wel. 
ches einen Datentransfer vom Ein- 
gang des ICs zum Ausgang gestat- 
tet, Dadie Eingänge desIC Balle auf 
Masse liegen, wird zu diesem Zeit- 
punkt der Wert 00 hex auf den Da- 
tenbus des Computers gelegt. 

DasSchaltbild unterteiltsich in die 
drei Bereiche A, B und C. Der Be- 
reich A ist bei allen drei Schneider- 
Computern gleich. Schaltbildteil B 
betrifft dann den 464, Teil C den 664 
sowie den 6128. Wie die Abschnitte 
jeweils miteinander verbunden wer- 
den, erkennt man an den Verbin- 
dungspunkten |, 2 und 3. 

Aufbauen kann man das Ganze 
am einfachsten auf einer Lochra- 
sterplatte. Ob es außerhalb oder in- 
nerhalb des Gehäuses unterzubrin- 
gen ist, sei dem Bastler selbst über- 
lassen. Man sollte aber den Ta- 
ster Tl so anbringen, daß er nicht 
aus Versehen gedrückt werden 
kann. 

Noch eine kleine ‚Anmerkung: 
Wer jetzt der Meinung ist, auseinem 
»„NEW« wieder ein »OLD« machen zu 
können, der wird leider ein wenig 
enttäuscht. Zwar wird beim Reset 
das Basic-Programm nicht mehr 
vollständig gelöscht, jedoch werden 
einige Zeiger, die für Basic-Anfang 
und -Ende sowie für die Variablen 
zuständig sind, wieder in den Ein- 
schaltzustand zurückgesetzt. Außer- 
dem werden am Anfang des Basics 
einige Speicherzellen mit Nullen so- 
wie mit den Zeigern der Variablen 
überschrieben. Dieser Umstand 
macht das »rückgängig machen« 
des »NEW«s zwar nicht gerade ein- 
fach, aber immerhin doch möglich. 
So bringt diese Hardware-Bastelei 
— vor allem für leidgeplagte Assern- 
bler-Programmierer — einige Vor- 
teile mit sich. Wer das in der Praxis 
erfahren hat, wird sie für ihre nur zir- 
ka 25 Mark auch nicht mehr missen 
wollen. (Michael Bauer) 


ancher Käufer eines CPC 

664 oder 6128 stellte recht 

schnellfest, daß die anfängli- 
che Euphorie über die gelungene 
Kombination von Heimcomputer 
und Diskettenlaufwerk nicht immer 
berechtigt war. 3-Zoll-Disketten sind 
teuer und so absolut sicher sind die 
Daten auf ihnen auch nicht gespei- 
chert. Also braucht man von jeder 
Diskette eine Sicherheitskopie — 
und das wird teuer. 

Kassetten hingegen sind zwar ein 
langsames Speichermedium, aber 
billig. Also muß der (meist vorhan- 
dene) Kassetten-Recorder aus dem 
Hi-Fi-Turm als Backup-Speicher her, 
Die Buchse des Computers sieht 
wie ein normaler Stereoanschluß 
nach DIN-Norm aus — da dürfte es 
eigentlich keine Schwierigkeiten 
‚geben. Doch weit gefehlt. Auf den 
fünf Polen einer Stereo-Verbindung 
liegen normalerweise zwei Aufnah- 
me- und zwei Wiedergabekanäle, 
sowie Masse. Der Schneider-Com- 
puter arbeitet hingegen mit nur ei- 
nem Auf- und einem Wiedergabe- 
kanal. Neben der Masse gibt es 
dann noch zwei Anschlüsse für die 
Motorsteuerung des Kassetten-Re- 
corders. 

Diese verschiedenen Kontakte 
überlagern sich, so daß man das 
Übertragungskabel selbst bauen 
muß. Am einfachsten (und billigsten) 
geht es mit einer normalen, fünfpoli- 
gen Stereo-Verbindung. Die Stecker 


Hifi am Schneider 


Für die Schneider CPC 664 und 
6128 kann man einen normalen Kas- 
setten-Recorder als Backup-Medium 
benutzen. Allerdings ist der Ausgang 
nicht der DIN-Norm entsprechend belegt. 


dürfen nicht verschweißt sein, da 
man an einem die Anschlußbele- 
gung ändern muß. 7 

Als erstes (nach dem Öffnen eines 
Steckers) schreibt man sich die 
Nummern der Stifte und die zugehö- 
rige Farbe des Kabels auf. Die Zif- 
fern befinden sich meist auf der In- 
nenseite des Steckers. Dann wird 
das Kabel von Pin 1 aufPin$und das 
Kabel von Pin 3 auf Pin 4 umgelötet. 
Die ursprünglichen Kabel an Pin 4 
und 5 bleiben getrennt. Gegebe- 
nenfalls kann hier die Steuerung 
des Kassetten-Recorders ange- 
schlossen werden. Der umgebaute 
Stecker gehört dann direkt an den 
Computer (eine Markierung ist hier 
sinnvoll), während die unveränderte 
Seite an den Kassetten-Recorder ge- 
steckt wird. 

Wer einen Recorder mit Cinch- 
Steckern hat, der muß sein Kabel so 
anschließen, daß der Eingang der 


Daten an Pin 4 und der Ausgang an 
Pin 5 (Computerseite) erfolgt. Die 
Belegung am Kassetten-Recorder 
entnimmt man am besten der Be- 
triebsanleitung. So lange man nur 
den Datenein- und -ausgang ver- 
tauscht, kann man auch nichts zer- 
stören. Schlimmer ist eine Ver- 
wechslung mit Pin 1 beziehungswei- 
se 3. Zur Motorsteuerung liegt näm- 
lich eine Spannung an, die die Da- 
tenleitungen nicht verkraften. 

Wer sich einen speziellen »Daten- 
recorder« zulegen will, dem sei 
noch gesagt, daß ein höherer Preis 
nicht unbedingt ein besseres Funk- 
tionieren garantiert. Eher umge- 
kehrt. Mono ist besser als Stereo 
und damit reicht ein Gerät der 70- 
Mark-Klasse vollkommen aus. Der 
Walkman kann natürlich auch als 
Datenspeicher mißbraucht werden. 
Allerdings ist bei den kleinen 
Steckern das Löten schon fast ein 
Gesellenstück für Elektroniker — 
wenn es ordentlich gemacht sein 
soll 

Bei wem sich nach getaner Arbeit 
kein Erfolg einstellt (obwohl die Tö- 
ne übertragen werden), der sollte 
den Artikel »Wenn der Recorder 
streikt« in diesem Heft lesen. Dort 
findet man Hilfe, wenn die Daten 
nicht so laufen wollen, wie sie sol- 
len. 

(Helmut Jungkunz) 


Süft 1 = Steuerspannung! 
Masse 


Was nach DIN aussieht, muß nicht DIN sein: Der Schaltplan für ein Verbindungskabel 
von Ihrem Schneider zum Kassetten-Recorder 


XD 
geärgert? 


ösartige Zeitgenossen behaup- 
B: daß ein Kabel nur zwei Zu- 

stände kennt: entweder zu kurz 
‚oder zu lang. Verlängert man es, so 
ist das zusammengesetzte Kabel 
nach dieser Theorie allerdings im- 
mer noch zu kurz, oder — aufgrund 


les Sondorbeitehäniden nn 


Schluß mit dem Kabelärger 


Haben Sie sich auch schon mal 
über die kurzen Verbindungskabel 
zwischen Computer und Monitor 


überlanger Kabelschleifen — zu 
lang. Das Dilemma wird noch 
schlimmer, wenn man abseits gro- 
ßer Städte versucht, passende Ka- 
bel zu kaufen. 

Alles, was wir aber brauchen, ist 
ein Lötkolben, etwas Lötzinn und zir- 


ka zwei bis drei Meter eines Stereo- 
verbindungskabels (Spolig plus Ab- 
schirmung). Für die genaue Länge 
sollten Sie an die oben angeführte 
Theorie denken. Ferner brauchen 
Sie vier (beziehungsweise beim 
CPC 664 und 6128) sechs Stecker. 
Bei den Steckern handelt es sich 
um etwas ungewöhnliche, das heißt 
nicht so häufig angebotene, Steck- 
verbindungen, die jedoch beide 
der DIN-Norm entsprechen. Ein 
bißchen Suchen und Sie müßten die 
benötigten Verbindungen beiIhrem 
Radio- (oder Elektronik-) Händler 
finden. Sollten alle Stricke reißen, so 
hilft ein Blick in Elektronikzeitschrif- 


Bastelei 


ten, um Entsprechendes in deren 
Anzeigenteilen zu finden. 

Für unsere Steckverbindung be- 
nötigen Sie jeweils einen männli- 
chen Stecker und einen zugehöri- 
gen weiblichen Stecker pro anzufer- 
tigendes Kabel — insgesamt also 
zwei oder drei Steckerpaare. Die 
männlichen Stecker sehen dabei 
genauso aus, wie die Exemplare, 
die bereits an den Kabelenden an- 
gebracht sind. Die entsprechenden 
Gegenstücke sind dann die weibli- 
chen Stecker. 

Wenn Sie beide Kabel — bezie- 
hungsweise im Fall des 664 und des 
6128 die drei — zwischen Monitor 
und Tastaturboard herausziehen 
(bei ausgeschaltetern Computer na- 
türlich), so sind Sie mit zwei unter- 
schiedlichen Steckertypen konfron- 
tiert, Nehmen wir uns zunächst ein- 
mal den Monitorstecker vor. Dies ist 
ein Bpoliger DIN-Stecker. In einem 
silbrigem Zylinder, der die Abschir- 
mung gewährleistet, sehen Sie die 
sechs einzelnen Stifte, die die Signa- 
le für die Auftastung der einzelnen 
Farben des Monitors, für die Farbin- 
tensität (Luminanz) sowie das Syn- 
chronisationssignal an den Monitor 
weiterleiten. 

Daneben haben wiresnoch mit ei- 
nem (beim CPC 664 und 6128 zwei) 
weiteren Stecker(n) zu tun, die die 
Stromversorgung des Computers 
gewährleisten. Vom Monitor zum 
Computergehäuse führt die 5V- 
Stromversorgung, beim 664 und 6128 
in Gegenrichtung die 12-V-Versor- 
gung des Diskettenlaufwerks. 

Dabei ist aber noch eines unbe- 
dingt zu beachten. Die unterschied- 
liche Befestigung der Kabel wurde 
unter anderem vorgenommen, um 
sicherzustellen, daß der 12V-An- 
schluß nicht aus Versehen mit der 5- 
V-Eingangsbuchse verbunden wird. 
Dies hätte nämlich die Zerstörung 
Ihres Computers zur Folge. Sie soll- 
ten daher auch, nachdem die Kabel 
zusammengebaut sind, eine Mar- 
kierung anbringen. Entweder kenn- 
zeichnen Sie die beiden Verbin- 
dungskabel mit verschiedenfarbi- 
gen Klebebändern oder Sie kleben 
die Kupplungsstellen mit Tesafilm 
fest aneinander. Und zwar so, daß 
immer eine Buchse mit einem 
Stecker an einem Ende zusammen 
liegt. 

Kommen wir zur eigentlichen Ver- 
drahtung. Für die (beiden) span- 
nungsführende(n) Leitung(en), gilt 
derselbe »Schaltplan«. Wenn Sie 
den Stecker, der vom Monitor zum 
Computer führt, aus der mit »5V DC« 
bezeichneten Buchse ziehen, so 
blicken Sie außen auf eine silbrige 


Buchse/Kuppluhg 


Stift 1 rot 
Stift 2 grün 
Stift 3 blau 


Der Schaltplan für das Kabel für die Monitorsignale 


Hülse. In der Mitte dieses Zylinders 
— durcheine Isolierschicht getrennt 
— liegt ein zweiter kleiner Blechzy- 
linder. An diesem liegt die Span- 
nung (8 oder 12 V) an. Die Hülse ist 
mit Masse belegt. Die gekaufte 
Buchse und der Stecker müssen nun 
mit zwei Kabeln innen und außen 
verbunden werden. 

Beschaffungsprobleme und Ko- 
sten (ein langes Kabel ist billiger als 
zwei kurze) lassen uns für alle Ver- 
bindungen das 5polige Kabel ver- 
wenden. 

Nach dem Abisolieren unseres 
Stereokabels fassen wir drei Leitun- 
gen zusammen. Den zweiten Kontakt 
stellen die zwei übrigen Adern und 
die Abschirmung her. Zusammen- 
gehörige Drähte werden miteinan- 
der verdrillt. Wenn Sie diesen Vor- 
gang auf deranderen Seite wieder- 
holen, erhalten Sie ein 2-poliges Ka- 
bel mit einem höheren Querschnitt. 
Dabei ist unbedingt darauf zu ach- 
ten, daß auf beiden Seiten diesel- 
ben Leitungen (dieselben Farben) 
miteinander verdrillt werden. An- 
sonsten bekommen Sie beim Ein- 
schalten einen Kurzschluß, der Ih- 
ren Computer ruinieren kann. 

Wenn Sie einen Durchgangsprü- 
fer oder ein Ohmmeter zur Hand ha- 
ben, so sollten Sie daher prüfen, ob 
die beiden Leitungen wirklich ge- 
geneinander isoliert sind. Im Zen- 
trum der beiden Stecker finden Sie 
nun einen kleinen Lötpunkt, der mit 
dem Innenteil unseres Steckers in 
Verbindung steht (beziehungsweise 
bei der Buchse auf dem Stift ge- 
schaltet ist). An diesen Pol löten Sie 
die drei gerade zusammengefloch- 
tenen Adernan. Derandere Kontakt 
wird mit den zwei Adern und der mit 
ihnen verdrillten Abschirmung be- 
legt. Wenn Sie dies auf beiden Sei- 
ten gemacht haben (vor dem Anlö- 
ten sollten allerdings die Gehäuse- 
hälften der Stecker über das Kabel 


geschoben werden), so sind die 
Netzteilverlängerungen fertig, 

Nun brauchen wir noch die Moni- 
torsteckverbindung. Dazu benutzen 
wir unser sechsadriges Kabel (fünf) 


fünf Adern jeweils einzeln mit den 
Lötpunkten verbinden, wie auch 
noch die Abschirmung als sechste 
Leitung. Diese sollte dabei auf den 
Zentralstift beziehungsweise bei: 
der Buchse aufdaszugehörige Loch. 
gelötet werden. 

Falls Sie über ein Spannungsmeß- 
gerät verfügen, so sollten Sie, bevor 
Sie die Kabelverbindung einsetzen, 
diese durchprüfen. Nach dem Ein- 
schalten müssen Sie an einem 
Stecker 5 V messen, wobei Minus 
außen und Plus im Innern des Steck- 
verbinders liegt. Beim 664 (6128) 
muß die Buchse der zweiten Verbin- 
dung (ebenfalls Hülse gegen Kern) 
12 V aufweisen. Messen Sie Plusund 
Minus vertauscht, so haben Sie eine 
falsche Beschaltung vorgenommen. 
Messen Sie gar nichts, so haben Sie 
entweder einen Kurzschluß oder ei- 
ne kalte Lötstelle (keine Verbin- 
dung). 

Wichtig! 

Eine Fehlpolung der Spannungs- 
stecker, das heißt Plus und Minus 
vertauscht, kann zueiner Zerstörung. 
des Computers führen. Diese ist 
selbstverständlich nicht durch die 
Garantie gedeckt. Im Zweifelsfall 
sollten Sie daher eher einen be- 
freundeten Hobbyelektroniker zu 
Rate ziehen. (Carsten Straush) 


2 bis 3 m Stereokabel (Spolig 
abgeschirmt) 

1(2) Steckerpaar(e) Niederspannungs- 
steckverbinder nach DIN 

1 6poliger DIN-Stecker mit Kupplung 
Ofür CPC 664, 6128 


Bestellungen aus der Schweiz 
Sehten Sie bitte direkt an: 
Markt& Technik Vertriebs AG, 
allerstr. 3, CH-6300 Zug, 

042/41 5656. 
Sestellungen aus andere! 
Eine per Äuslandspostanı 
Achtung: Nicht 
Zetikarte v 
Bestellungen aus 
SS bitte direkt an: B 
Meidling, Schönbnur 
#.1120 Wien, Tel. 0 

mPutign 

Easangasse 21, A-1030 Wi 
ei 0222/785861 


Commodore 64 / 
Commodore 128 
86 


. 83 
SDB-Sprite Mover. Aus Ausgabe 1/86 
ES-AE. Aus A 


‚sgabe 12/84 
Alle 9 Programme auf Diskette für den Com- 
wodore 64/128 

Bestell-Nr. LH 8601 CD, 

DM 29,90*, sFr.24,90* 


Atari 800XL/130XE/800 
Tarbo-Basic. Aus Ausgabe 12/85, 
AMPEL. AlarıMa 
Zabe-Listing, Aus Au 
Atarı-Präfsummer. 
jabe 3/85 

‚Programme auf einer Diskette für den 
ATARI 800XL/130XE/800. 
Bestell-Nr. LH 8S12B, 
DM 29,90*, sFr. 24,90% 


Schneider CPC 


Programmtransfer leicht gemacht 
@eamme, S. 72) 

Tasword 464: mit DIN-Tastatur 
Bewegte Grafik mit drei Befehlen 
Maschinencode-Routinen in BASIC umge- 
setzt (5. 75). Aus Ausgabe 10/85. 

Sam. Aus Ausgabe 11/ 

Deutscher Zeichensatz unter CP/M. Aus 
Ausgabe 12/85. 

en ‚Aus Ausgabe 12/85. 
RSX-Befehle mit direkter Stringvariable. 
Aus Ausgabe 12/85. 


jumper II. Magic- 


Bestell-Nr. LH 8512 G, 
DM 29,90%, aFr.24,90* 


® elf gespeicherte sTraumbilder« 


* gleichzeitiges Malen 
® einfache Bedienung di 
nütechnik 
Eeenes Farbmenü (16 raten) 
® umfangreiche Diskettenbefehle 


(Speichern, Löschen, Laden) 
* 100% 


Hans-Pinsel-Straße 2, 8013 


Ds 
iz: Markt ä Technik Vertriel 
Österreich: Rudolf Lechner & 


auf zwei Bildschirmen 
lurch übersichtliche 


3,Cı 
\G.Köllerstrasse 3, 
ehe heizwerkstraße 10, A 


Commodore 64 
‚Ausgabe 10/85 
‚Aquantor, Zykloide, Nebenkostenabrech- 
nung, Neuer Checksummer, Plakat, Data- 
Zeilen-Wandler, Super-Saver, More 
Memory, Autolistschutz, Grafik-Window- 
Zeichner. 


‚Busgabe 11/85 
Fiugplanung, Finanzen 6, User-Port- 
Anzeige, Amadeus, ZXSl-Utlity, Long- 
Screen, Chess-Screen, Colour-Screen, Auto- 
beep. 


‚Alle 19 Programme auf einer doppelseitig 
bespielten Diskatte für den Commodore 64. 
Bestell-Nr. LH 8511 A, DM 29,90%, aFr. 24,90* 


Bus- 


gabe 7/85. 
Mini-Textverarbeitung. Aus Ausgabe 8/85. 
Terminal- Listing des Monats 
aus Ausgabe 9/85. 


‚Alle 3 Programme auf einer Kassette 
für den Sinclair Spectrum. 
Bestell-Nr. LH 8510 D, DM 19,90*, sFr. 16,90* 


‚hen 
EILDEH 
Wen 02221677526 


PROGRAMM-SERVICE 


‚Ausgabe 10/85 
‚Alle 7 Programme auf einer Diskette 

für den Atari 800 XL. 

Bestell-Nr. LH 8510 B, DM 29,90%, sFr. 24,90* 


Sonderheft: Spectrum 


Sonderheft 
3" Diske 


Commodore 64 


Bestell-Nr. LE 8509 A, DM 29,90%, Fr.24,90* 
Schnelle Grafik aus dem Compiler 
Listing des Monats aus de: Ausgabe 8/85. 
Mondlandung. Aus Ausgabe 8/85. 
Komfort-Routinen. Aus Ausgabe 8/85. 
Grafik-Hardoopy. Aus Ausgabe 8/84. 
Psycho. Aus Ausgabe 8/85. 

Tab-Calc. Aus Ausgabe 8/85. Ans Ausgabe 
Woodshot, Sprite Mover, Short Save, Sprite- 
Dreher, Echtzeituhr, Animation 


Achtung! 

Bitte verwenden Sie für Ihre 
Bestellungen nur die einge- 
heftete Postscheck-Zahlkarte zur 
isung des Rechnungs- 


betrags. 


Fehlende Hefte erhalten Sie bei 
Markt & Technik 

Vertrieb Happy Computer 
Hans-Pinsel-Straße 2 

8013 Haar bei München 


Commodore 64 
Risiko. Aus Ausgabe 7/85. 

Mini-Grafik. Aus Ausgabe 7/85. 

Museo. Aus Ausgabe 7/85. 

Maskenbildner. Aus Ausgabe 7/88. 

‚Aller Anfang ist schwer. ‚Ausgabe 7/85. 
‚Alle 5 Programme auf Diskette für den Com- 
modore 64. 

Bestell-Nr. LH 8507 A, DM 29,90*, sFr. 24,90* 


Schneider CPC 464 
Diassembler. Aus Ausgabe 4/85, 
Grafik. Aus Ausgabe 4/85. 
Dateiverwaltung. Aus Ausgabe 4/88. 
Pro aufkassettefürde 
jerCPC 
Bestell-Nr. LH 8505 G, DM 29,90%, «Fr. 24,90* 
Text. Aus Ausgabe 3/85. 


C.464 


Bestell-Nr. LH 508 G, DM 29,904, «Fr. 24,90% 


natische 
bet, nach 


Spiele 


Schneider verspielt 


Vor lauter CP/M und RSX sollten 
Sie die unterhaltsamen Seiten Ihres 
Schneider-Computers nicht verges- 
sen. Für den CPC gibt es ein sehens- 


wertes Angebot von Computerspielen, aus 
dem wir Ihnen einige Leckerbissen vorstellen. 


ren ein schillerndes Doppelle- 

ben: Aufder einen Seite sind sie 
hochkarätige Heimcomputer, die 
sich mühelos für professionelle Ein- 
sätze hochpäppeln lassen. In die- 
sem Artikel wollen wir uns der an- 
deren, schillernden Seite widmen. 
der spielerischen. Vor allem aus 
England gibt es eine anhaltende 
Welle von Computerspielen für den 
CPC. Das liegt vor allem daran, daß 
der mit dem Schneider identische 
Amstrad-Computer in Großbritan- 
nien ähnlich weit verbreitet ist wie 
bei uns, und in England bekanntlich 
viele große Softwarefirmen zu Hau- 
se sind. 


Sa: CPC-Computer füh- 


Mit seiner hochauflösenden Gra- 
fik, der breiten Farben-Palette und 
dem schon in der Grundausstattung 
stattlichen Arbeitsspeicher von 64 
KByte bietet sich der CPC auch 
förmlich als Spielcomputer an. Als 
reine Spielmaschine ist er aller- 
dings nicht zu empfehlen, da hier 
der berühmt-berüchtigte Commo- 
dore 64 dank Sprites und leistungs- 
starken Audio- und Video-Chips bei 
den 8-Bit-Computern immer noch 


*2008 


iridi 


»Tir Na Nog« mit hervorragender Animation 


die Nase vorn hat. Aber wenn man 
die Kiste schon mal im trauten Heim 
hat, um damit zu programmieren 
oder Briefe zu schreiben, will man 
sich auch mal bei einem Spielchen 
entspannen. Mit welchen Titeln das 
besonders gut geht, verraten wir Ih- 


Gun powder stores, 


nen in diesem Artikel. Die Bezugs- 
quellen für die hier aufgeführten 
Spiele finden Sie am Ende. Die Prei- 
se für die Kassetten-Versionen be- 
wegensich in der Regel zwischen 25) 
und 39 Mark; einige Titel sind auch 
auf Diskette erhältlich. 


Leider gibt esbis heute nurrelativ 
wenige Spiele, die auf dem Schnei- 
der geschrieben wurden und die 
Fähigkeiten des Computers so rich- 
tig ausreizen. Bei den zahlreichen 
Umsetzungen von C 64-Spielen ist 
Vorsicht geboten. Die Schneider- 
Adaptionen erreichen fast nie die 
Qualität des Originals; die Hand- 
lung ist zwar meistens identisch, 
aber vorallem beider Grafik hapert 
es mitunter gewaltig. Wer ein tolles 
Spiel auf dem Commodore 64 sieht, 
sollte mit einem spontanen Blind- 


quarter deck 


You are carrying a tank of oxygen 


en Level 


$ Bullet 
BöBEse 5 


Grafisch abwechslungsreich: »The Devils Crown« 


kauf der Schneider-Version etwas | 
vorsichtig sein. Am besten schaut | 
man sich die Umsetzung im Softwa- 
re-Shop vor dem Kauf an oder läßt 
sich über die Qualität der Umset- 
zung vertrauensvoll informieren. 


Gut umgesetzt 
ist halb gewonnen 


Ein gelungenes Beispiel für eine 
gute Adaption ist »Bounty Bob strikes 
back«. Das Spiel hat eine simple 
Grundidee: Der Bergarbeiter Boun- 
ty Bob muß in 25 Bergwerksstollen 
alle Gerüstteile absichern. Dies ge- 
schieht dadurch, daß er über jedes 
Teil mindestens einmal läuft und so 
das Gerüst farbig ausfüllt, In das 
nächste Bild gelangt man erst, wenn 
man einen Stollen komplett abge- 
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Spiele 


räumt hat. Um bei diesem Spiel alle 
Screens kennenzulernen, ist man 
leicht ein paar Monate beschäftigt, 
da es nur so von tödlichen Mutanten 
und trickreichen Fallen wimmelt 
»Bounty Bob« ist eines der besten 
Plattformspiele überhaupt und — 
zumindest was meinen Geschmack 
angeht — wesentlich witziger und in- 
ressanter als der Bestseller »Jet 
t Willy« 

Und noch eine gelungene Umset- 
zung: »Master of the Lamps« ist ein 
hnelles Geschicklichkeits-Spiel 
für © 64, das vor allem von dentollen 
Grafik- und Sound-Effekten lebt, da 
der Spielablauf eher simpel ist. Die 
Adaption der Musikstücke klingt auf 
dem Schneider dank desmickrigen 


Gelungene Umsetzung: 
»Master of the Lamps« 


Lautsprechers äußerst flau, doch 
die flotte 3D-Grafik steht dem Origi- 
l in nichts nach. Der Spieler düst 
als Prinz mit seinem Zauberteppich 
durch abstrakte Energie-Rauten, 
die in Windeseile auf ihn zuflitzen 
Nach jeder heil überstandenen 
Flugsequenz kann man sich einen 
Teil der begehrten Königskrone 
schnappen, indem man eine Melo- 
die richtig nachspielt. Vom Hand- 
lungsablauf her wirklich nicht be- 
sonders aufregend, aber ein tolles 
Spiel für Liebhaber schneller, schö- 
ner Grafik-Effekte. 


Strategie mit Witz 


Kevin Toms ist ein englischer Pro- 
grammierer, der mit zwei sehr ori- 
ginellen Strategie-Spielen viel Er- 
folg hat: »Football Manager« und 
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ıders Keepers«, das preiswerte Action-Adventure 


»Software Star«. Beide Programme 
sind nicht übermäßig kompliziert 
und schnell zu lernen, dı der 
Spielreiz ist auch längerfristig sehr 
hoch. Das liegt wahrscheinlich vor 
allem daran, daß man bei beiden 
Programmen einen Spielstand auf 
Kassette speichern und später von 
da aus wieder weitermachen kann 

quasi ein Spiel fürs Leben. Beide 
Male schlüpft man in verantwor- 
tungsvolle Rollen: Einmal versucht 
man sich als Trainer einer Fußball- 
mannschaft, einmal als Leiter einer 
Computersoftware-Firma+ Bei »Foot- 
ball Manager« können Sie Spieler 
an- und verkaufen, Ihre Mannschaft 
aufstellen und die Kicker (hoffent- 
lich) zu Siegen führen. Der Bundesli- 
ga-Aufstieg winkt und eines Tages 
vielleicht sogar die Meisterschaft 
Bei »Software Star« geht es um Ver- 
kaufserfolge in den Computerspiel- 
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Charts, Sie bestimmen, wie lange 
ein Programm entwickelt wird, wie 
viel für Werbung investiert wird, etc. 
Beide Spiele ähneln sich etwas, sind 
inhaltlich aber sehr eigenständig. 
Einsteigern sei »Football Manager« 
empfohlen und wem dieses Spiel 
Spaß macht, der ist mit »Software 
Star« auch sehr gut bedient 

Ein neues Spielgenre erfreut sich 
immer wachsender Beliebtheit: die 
sogenannten »Action-Adventures« 
Bei dieser Mischform muß man so- 
wohl seine Spielfigur durch ver- 
schiedene Bilder steuern als auch 
Gegenstände aufsammeln und im 
richtigen Moment gebrauchen. Da 
man oft nur eine bestimmte Anzahl 
von Dingen bei sich tragen kann, 
sind Logik und natürlich viel Ge- 
duld gefragt. Ein ausgesprochen 
preiswerter Vertreter dieses Gen- 
res ist das zirka 10 Mark teure »Fin- 
ders Keepers«, das etwas an diverse 
Plattformspiele erinnert, aber auch 
Funktionen wie genstände neh- 
men, verkaufen etc. erlaubt. Inhalt- 
lich ähnlich, aber grafisch abwechs- 
lungsreicher, ist »The Devils Crown« 
Hier müssen Sie durch immerhin 40 
Bilder flitzen und sieben Juwelen fin- 
den. Behindert wird man dabei von 
liebreizenden Zeitgenossen wie 
den Geister-Piraten und den Killer- 
Fischen (nicht zu verwechseln mit 
Kuno, dem Killer-Karpfen) 


Trickfilm-Grafik 


Wer eine hervorragend animierte 
Grafik auf seinem Schneider erle- 
ben will, greife zu »Tir Na Nog« und 
»Dun Darach«, Auch diese beiden 
exotisch klingenden Titel kann man 
als Action-Adventures bezeichnen. 


ee 25 


Spiele 


Disketten-Adventure »Frankie crashed on Jupiter« ... 


Hier muß man in Adventure-Manier 
wieder eine bestimmte Aufgabe er- 
füllen, doch das Besondere an den 
beiden Spielen ist die grafische Ge- 
staltung. Die Figur, die der Spieler 
steuert, wandelt beinahe in Zeichen- 
trick-Qualität über die Mattscheibe. 
Im Gegensatz zu »echten« Adventu- 
res ist man bei seinen Handlungen 
allerdings beschränkt: Bei »Dun 
Darach« kann man den Blickwinkel 
wählen, Gegenstände aufsammeln, 
hinlegen und anderen Spielfiguren 
anbieten. Auch hier darf man nur ei- 
ne bestimmte Anzahl von Dingen 
bei sich tragen: drei Gegenstände 
plus Bargeld nach Belieben 

Doch wir wollen auch die »richti- 
gen« Adventures nicht vergessen 
Nahezu alle Schneider-Abenteuer- 
spiele werden auf Kassette angebo- 
ten und laden nicht nach; Text und 
Grafiken müssen also in die 64 KBy- 
te Arbeitsspeicher gestopft werden. 
Daß dabei trotzdem ein gutes Spiel 
mit vielen Bildern und interessanten 
Texten herauskommen kann, bewei- 
sen die Titel der englischen Adven- 
ture-Spezialisten Level 9. Ihr jüng- 
stes Werk »Red Moon« liegt auch in 
einer sehr guten CPC-Fassung vor. 


Ein englischsprachiges Grafik- 
Abenteuer der klassischen Art mit 
über 200 Orten, guten bissehr guten 
Bildern und einer interessanten Fan- 
tasy-Handlung mit viel Magie. 

Vor allem für Einsteiger ist das 
Disketten-Adventure »Frankie cra- 
shed on Jupiter« interessant, Das 
Spiel ist nicht allzu schwierig und 
macht dank witziger, englischer 
Texte und mitunter sehr sehenswer- 
ten Grafiken Spaß. 

In diesem Artikel konn! 
Platzgründen nur einige 
te Schneider-Spiele kurz anreißen 
Für Interessierte folgt zum krönen- 
den Abschluß deshalb etwas hem- 
mungslose Eigenwerbung: Wer sich 
für Computerspiele im allgemeinen 
interessiert, sollte mal einen Blick 
auf das Sonderheft »Spiele-Tests« 
von Happy-Computer werfen. Ne- 
ben Stories und einer Marktüber- 
sicht findet man hier über 100 kriti- 
sche Tests. Viele der vorgestellten 
Spiele sind auch für den Schneider 
CPC erhältlich. Und wersich aktuell 
jeden Monat über das Spiele- und 
sonstige Schneider-Geschehen in- 
formieren l, greife jeden Monat 
zur neuen Happy-Computer. 
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... mit witzigen Texten und Grafiken 


Zu guter Letzt noch ein kleiner 
Ausblick auf kommende Schneider- 
Spiele: So ist für Dezember 1985 die 
langerwartete Auslieferung der 
CPC-Adaption des Kultspiels »Elite« 
angekündigt. Die Grafik ist mit der 
erfolgreichen C 64-Version so gut 
wie identisch; inhaltlich wird sogar 
noch mehr geboten: Die Schneider- 
Fassung enthält nämlich zwei Spe- 
zial-Missionen mehr. 

Eine neue englische Softwarefir- 
ma namens Electric Dreams be- 
schäftigt einige erfahrene Z80-Ex- 
perten in seinem Programmierteam 
Von den ersten drei Spielen dieser 
Firma bekamen wir bisher ein Vi- 
deo-Demo zu sehen. Vor allem »Win- 
ter Sports«, die Antwort auf »Winter 
Games« für den C 64, dürfte ein Rie- 
senhit werden. Das Sportspiel bietet 
neun Disziplinen inklusive einer 
starken Eishockey-Simulation. Auf 
diese Neuerscheinungen kann man 
nur gespannt sein. Sie zeigen deut- 
lich, daß der Schneider spielerisch 
noch lange nicht ausgereizt ist. 
(Heinrich Lenhardt) 
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Grafik-Grundlagen 


Ein Zuckerhut 
für den Schneider 


facher als man denkt. 


teure Profi-Computer kennt sie 

jeder — die Zuckerhüte, gebo- 
genen Ebenen und viele andere 
beeindruckende Grafiken. Daß es 
sich im Endeffekt meist nur um sehr 
einfache mathematische Formeln 
handelt, wissen nur wenige. Wie 
programmiert man nun eine solche 
Funktion, die von zwei Variablen ab- 
hängt? Folgende Überlegungen sol- 
len uns zu einer universellen Dar- 
stellungsroutine führen, die es er- 
laubt, jeden Graphen in einem frei 
wählbaren Bereich abzubilden. Die 
notwendigen Unterfunktionen (wie 
beispielsweise Sinus (SIN) und Cosi- 
nus (COS) müssen allerdings in der 
Syntax des Computers vorgesehen 
sein. 

Bevor wir uns endgültig in die Pro- 
blematik vertiefen, müssen wir uns 
zunächst wohl oder übel mit einigen 
grundsätzlichen Problemen im Be- 
reich der Funktionsdarstellung be- 
schäftigen. Bleiben wir dabei zu- 
nächst im zweidimensionalen Be- 
reich und beginnen mit einer ganz 
einfachen Funktion, die von nur ei- 


R: den Werbeprospekten für 
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Ein beliebtes Demonstra- 
tionsobjekt auf dem Com- 
puter sind Funktionen, 
die von zwei Variablen ab- 
hängen. Die spektakulär aus- 
sehenden 3D-Grafiken sind ein- 


ner Variablen abhängig ist: y = 
sin(x). Wenn Sie die Schleife »ORI 
GIN 0,200:FOR i=0 TO 4*PI:PLOT 
i,SING):NEXT i« eingeben, sollte Ihr 
Schneider eine Sinus-Kurve aufdem 
Schirm ausgeben 

Wir erhalten jedoch nur einen 
kleinen geraden Strich als Resultat. 
Der Grund: falsche Skalierung! Die 
Sinus-Funktion schwankt bekanntli- 
cherweise nur in einem relativ ge- 
ringen Wertebereich zwischen —1 
und 1. Damit werden nur maximal 
zwei Bildschirmlinien in der Höhe 
adressiert. Ohne Vergrößerung 
können diese Werte aber nicht aus- 
reichend gut aufgelöst gezeichnet 
werden. Führen wir einen Multipli- 
kator ein, so ist dieses Problem ge- 
löst. Da die Schwankungsbreite be- 
kannt ist, können wir ohne weiteres 
errechnen, wie groß unser Multipli- 
kator sein soll, um den Schirm in Y- 
Richtung möglichst optimal auszu- 
füllen. Wir verfügen über 400 Pseu- 
dopunkte in der Höhe. Den Ur- 
sprung unseres Koordinatensy- 
stems legen wir in die Bildschirm- 
mitte (Bildschirmzeile 200). Zur Dar- 


Im Modus 0 sieht 
die Kurve sehr 
eckig aus 


stellung unserer Sinusfunktion kön- 
nen wir also 200 Punktlinien nach 
oben und unten nutzen. Da der Sinus 
zwischen —] und 1 schwankt, wird 
beieiner Multiplikation mit 200 dem- 
nach der gesamte Schirm ausge- 
füllt 

Man muß sich allerdings bei die- 
sen Überlegungen darüber im kla- 
ren sein, daß man nur 400 Bild- 
schirmpseudopunkte zur Verfügung 
hat. Effektiv kann man nur mit 200 
einzelnen Bildpunkten arbeiten. 
Dies läßt sich mit einem kleinen Ex- 
periment belegen. Geben Sie ein- 
mal nach CLS die folgenden Kom- 
mandos »PLOT 320,200« und »PLOT 
320,201« ein. 

Nach dem ersten PLOT erscheint 
ein gelber Punkt in der Bildschirm- 
mitte, Das zweite PLOT dagegen hat 
keinerlei Auswirkungen. Der Grund 
ist einfach. Beide PLOT-Befehle 
adressieren denselben Bildpunkt. 
In Wirklichkeit haben wir es also ho- 
rizontal nur mit 200 trennbaren Bild- 
schirmlinien zu tun, Einen ähnlichen 
Effekt kann man auch bei der Be- 
trachtung der X-Angaben in den 
PLOT- und DRAW-Befehlen erken- 
nen. In den Modi mit höherer Farb- 
auflösung werden Punkte in X- 
Richtung zusammengefaßt. Dabei 
maximal vier PLOT-Kommandos im 
Mode 0, dieselbe Punktgruppe, 
nämlich »PLOT 320,200«, »PLOT 
321,200«. »PLOT 322,200« und »PLOT 
323,200« 

Um diese Zusammenhänge zu 
verdeutlichen, wurde deshalb der 
Begriff Pseudopunkte gebraucht. Es 
stellt sich die Frage, warum der 
Schneider eigentlich einen viel grö- 
ßeren Zahlenbereich für die An- 
sprache verwendet, als er dann ef- 
fektiv benötigt. Dafür gibt es zwei 
Gründe: Zumeinenistesdurch eine 
größere Wertangabe für die Y-Kom- 
ponente möglich, bei schräglaufen- 
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den Linien den optimalzu setzenden 
Bildpunkt durch Interpolation ge- 
nauer zu bestimmen. Zum anderen 
sollte dadurch ein besseres Verhält- 
nis von X- zu Y-Werten erreicht wer- 
den, Beim Zeichnen von Kreisen 
beispielsweise ergäbe sich bei glei- 
chem Abstand ansonsten eine Ellip- 
‚se. Für unsere weiteren Programme 
sind diese Überlegungen für die 
Frage der Auflösung wichtig. Es hat 
beispielsweise keinen Sinn, die Ab- 
stände bei einer parallel zur X-Ach- 
se verlaufenden Linienschar in Y- 
Richtung in Yoo-Schritten zu variie- 
ren. Dadurch würde nur zweimal 
derselbe Punkt gesetzt. Außer einer 
längeren Rechenzeit wäre das Re- 
sultat einer solchen »Verbesserung 
der Auflösung« gleich Null. Wenn 
wir auch bei unseren Berechnun- 
gen weiterhin den Rahmen von 640x 
400 Bildpunkten als Grundlage be- 
nutzen müssen, können wir aber ge- 
gebenenfalls in größeren als ler- 
Schritten vorgehen. 

Bei der Programmentwicklung 
müssen wir zunächst unsere Funk- 
tion nach demselben Verfahren 
- auch in X-Richtung strecken. Denn 
auch hier »kleben« die einzelnen 
Punkte noch viel zu dicht aufeinan- 
der. 4PI entspricht ungefähr dem 
Wert 12,5. 

Da wir 640 Pseudopunkte in Rich- 
tung der Abszisse zur Verfügung ha- 
ben, liefert uns hier 630/12,5=51,2 
den optimalen Multiplikationsfaktor. 
Mit »ORGIN 0,200:FOR i=0 TO 
4*PI:PLOT 51,2*i,200*SIN(i)« ist dann 
eine vernünftige Darstellung er- 
reicht. Wie sieht nun die Funktion im 
negativen Bereich aus? Dazu verän- 
den wir den Bereich, in dem i vari- 
iert, zu»FOR i=—2*PI TO 2*PI«, Statt 
des erhofften Kurvenverlaufs zwi- 
schen —2PI und 0 wird jetztnurnoch 
ein Teil der ersten Schwingung dar- 
gestellt, daß der Ursprung unseres 
Kooridnatensystems ungünstig ge- 
wählt ist, Der Nullpunkt liegt näm- 
lich ganz am linken Bildschirmrand, 
- wodurch der Computer die Werte, 

die sich für negative X ergeben, 

nicht mehr darstellen kann. Die rich- 
tige Wahl der Skalierung und des 

Mittelpunktes stellt aber kein Pro- 

bblem dar, falls man die Maxima-und 

die Minima-Angaben für X bezie- 
hungsweise Y kennt. Es seien 

XMIN — die minimale X-Koordinate, 

XMAX — die maximale 

X-Koordinate, 

YMIN — die minimale Y-Koordinate 

und 

YMAX — die maximale 

Y-Koordinate. 

Der optimale Punkt für den Koor- 
_ didnatenursprung berechnet sich 


dann nach folgenden Formeln (sie- 
he Bild ]): 
—X rin 


= re 639 und 
—A in 
es Se 


Als Nebenbedingung muß jedoch 
minY min <O Und Kar Yırax <O gel- 
ten, damit dieser Punkt auch mit 
dem Ursprung des Koordinatensy- 
sterns identisch ist. Als nächstes be- 
nötigen wir noch die Skalierungs- 
faktoren, die auch relativ einfach zu 
bestimmen sind. 


Xmax—Xnin 
639 


CK = und 


Yın 

& 399 

Offen ist jetzt noch die Frage, wo- 
her wir die Angaben für Y,., und 
Y,.n erhalten. Einmal können wir 
diese, genau wie auch den Werte- 
bereich von X, über eine Eingabe- 
routine abfragen. Voraussetzung da- 
für ist aber, ungefähre Vorstellung 
von der Größe der auftretenden Er- 
gebnisse zu haben. Speziell bei 
komplexen Funktionen, die von ei- 
ner ganzen Reihe von Unterfunktio- 
nen abhängig sind, ist dies nicht 
praktikabel. Es gibt aber die Mög- 
lichkeit, eine automatische Grenze- 
bestimmung durch ein Programm 
machen zu lassen. Das heißt, der 
Schneider bestimmt selbständig die 
Extremwerte und danach den Ur- 
sprung des Koordinatensystems so- 
wie die Skalierungsfaktoren. Dazu 
wird unsere Zeichenschleife ein- 
fach zweimal durchlaufen. Das erste 
Mal allerdings in einer leicht verän- 
derten Form. Statt des PLOT-Kom- 
mandos werden mit »MIN« und 
MAX« die Extremwerte bestimmt, 
Diese neue Zeile lautet dann in un- 
serem Beispiel: 
»YMAX=—1E38YMIN = 1E38:FOR 
i=0 TO 4PIYMAX=MAX(CYMAX, 
SING)):YMIN = MIN(YMIN,SING)): 
NEXT i«. 


er } 
Bild 1. So bestimmt man den Ursprung 
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Zunächst werden die Variablen, 
die die Grenzwerte aufnehmen sol- 
len (XMAX und YMIN), auf mög- 
lichst kleine beziehungsweise gro- 
Be Werte gesetzt, um eine definierte 
Ausgangsposition zu schaffen. Als 
nächstes werden dann für alle i die 
Funktionswerte bestimmt und paral- 
lel dazu, wenn nötig, die Eckanga- 
ben in YMAX und YMIN verändert. 
Damit können wir nun eine einfache 
Funktionsdarstellungs-Routine (Li- 
sting 1) schreiben. 

Am Anfang finden Sie die automa- 
tische Extremwertbestimmung, be- 
vor dann Mittelpunkt und Strek- 
kungsfaktor festgelegt werden. Es 
folgt die Darstellung des Achsen- 
kreuzes und der Funktion, die in Zei- 
le 250 steht. Dieses Programm er- 
hebt keinerlei Anspruch darauf, be- 
reits eine komfortable Darstellungs- 
routine zu sein. Es soll nur das Prin- 
zip illustrieren und vor dem Einstieg 
in die dreidimensionale Grafik eine 
lauffähige zweidimensionale Ver- 
sion präsentieren. 

Mehrere Punkte lassen bei dem 
Beispiel noch zu wünschen übrig. 
Zum einen ist die Funktionseingabe 
mangelhaft. In einem benutzer- 
freundlichen Programm kann es 
nicht angehen, daß dieses abgebro- 
chen und nach Eingabe der mathe- 
matischen Formel (hier in Zeile 230) 
gestartet werden muß. Ferner sollte 
der Computer die Achsen selbstän- 
dig bezeichnen, damit konkrete An- 
gaben für einzelne Punkte zu erken- 
nen sind. Wir wollen diese Mängel 
im Kopf behalten, wenn wir uns nun 
damit beschäftigen, wie das 3D- 
Funktionsprogramm aussehen soll. 


3D-Funktion 


Grundlage jeder dreidimensiona- 
len Abbildung sind die Projektions- 
gleichungen. Wenn wir eine Funk- 
tion darstellen wollen, die von zwei 
Variablen abhängig ist, so benöti- 
gen wir zunächst einmal ein dreidi- 
mensionales Achsenkreuz. Auf der 
x-Achse und der in den Raum füh- 
renden y-Achse (diese ist nicht mit 
der y-Achse im zweidimensionalen 
Koordinatensystem identisch) trägt 
man dabei die sich ändernden Ein- 
gabegrößen auf. Der Wert auf der 
senkrecht dazu stehenden z-Achse 
gibt das Ergebnis der Funktion wie- 
der. Nun haben wir aber als Darstel- 
lungsfläche nur die zweidimensio- 
nale Bildschirmebene zur Verfü- 
gung. Um dennoch eine dreidimen- 
sionale Funktion — eine Funktion, 
die von zwei verschiedenen Varia- 
blen abhängig ist — abbilden zu 
können, müssen wir daher auf eine 
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ae sten (perspektivische Darstel- 
lung) zurückgreifen. Dazu teilen wir 
die Angaben für yso aufxundzauf, 
daß ein räumlicher Eindruck ent- 
steht. Als Verfahren dient uns dabei 
die Parallelprojektion. 

‚Auf der Basis dieser Projektions- 
technik zerlegen wir den Wert für y 
mit Hilfe von Winkelfunktionen in ei- 
ne x- und eine z-Komponente. Wie 
diese Verschiebung sich auswirkt, 
verdeutlicht Bild 2. Bei y=0 haben 
wir es mit einer ganznormalen zwei- 
dimensionalen Darstellungzutun. In 
der Zeichnung wird dies durch den 
Beispielpunkt (5/0,5) verdeutlicht, 
wobei die Koordinaten in der Rei- 
henfolge x, yund zangegeben sind. 
Die Verschiebung, die sich ergibt, 
wenn zusätzlich auch noch y=5 ge- 
setzt ist, zeigt der zweite Beispiel- 
punkt. Je kleiner d gewählt wird, de- 
sto stärker schlägt y auf die darzu- 
stellende x-Komponente durch. Um- 
gekehrt führen größe Winkel zu ei- 
ner erheblich über das Maximum 
von z heranwachsenden yz-Kompo- 
nente. 

Nunsind wiraber zunächst einmal 
in der Lage, aus den dreidimensio- 
nalen Angaben unsere entspre- 
chenden zweidimensionalen Dar- 
stellungswerte zu berechnen. Ha- 
ben wir also mitx, yund z die Werte 
im dreidimensionalen Koordinaten- 
system und mit d den Winkel zwi- 
schen der x- und der y-Achse in der 
Darstellungsebene gegeben, so er- 
geben sich für eine Umformung die 
Formeln X = x+y*cos « und Z = 
z+y*sin a. 

In X und Z sind die Angaben für 
das zweidimensionale Achsensy- 
stem als Abszissen- und Ordinaten- 
wert enthalten. Wenn wir nun also in 
einer Doppelschleife x und y variie- 
ren und die zugehörigen z-Werte be- 
stimmen, so können wir mit Hilfe die- 
ser Formeln und gegebenenfalls 
den weiter oben schon beschriebe- 
nen Umrechnungsoperationen X 
und Z zur Skalierung die Werte be- 
stimmen, die in unserer zweidimen- 


sionalen Darstellung gesetzt wer- 
den müssen. 

Hierbei ergibt sich allerdings ein 
Problem. Durch die Projektion der 
y-Werte auf die x- und z-Achse kann 
es, wie wir jaschon gesehen haben, 
dazu kommen, daß die Extremwerte 
für X und Z weit über die Angaben 
hinausgehen, die wir fürX und Zals 
Grenzwerte angegeben haben. For- 
mal sind dafür in den Gleichungen 
die Terme mit den Winkelfunktio- 
nen verantwortlich. Durch die Pro- 
jektion ergibt sich das Maximum 
von Xnun beispielsweise nichtmehr 
als Maximum von x, sondern zu die- 
sem Term ist auch noch das Maxi- 
mum von y multipliziert mit dem Pro- 
jektionsfaktor cos « zu addieren. 
Dies beeinflußt sowohl die Wahl des 
Mittelpunktes als auch die Werte für 
die Skalierungsfaktoren. Bild 3 zeigt 
die Zusammenhänge. Obwohl die 
Schwankungsbreite für y deutlich 
kleiner ist als die Veränderungen 
für x und z liegt der rechte Extrem- 
punkt p dennoch weit außerhalb un- 
serer Schranken. Für die Bestim- 
mung des größten und kleinsten 
darzustellenden Werts (sowohl in X- 
wie auch in Z-Richtung) müssen wir 
also unsere Bestimmungsgleichun- 
gen verändern. Wir bezeichnen das 
Minimum von X mit MIX, das Maxi- 
mum mit MX. Das Minimum von Zer- 
hält die Bezeichnung MIZ und der 
zugehörige Maximalwert wird mit 
MZ beschrieben. Des weiteren defi- 
nieren wir: 


MINYPX MINY *cosa 
MINYPZ MINY *sin« 
MAXYPX = MAXY *cosa 
MAXYPZ = MAXY *sin« 


wobei Minimum (y) und Maximum 
(y)die Extremwerte für y in der drei- 
dimensionalen Darstellung, MI 
NYPX, MINYPZ und so weiter ihre 
Projektionen auf die zweidimensio- 
nale X- beziehungsweise Z-Achse 
sind. Die absoluten Schranken erge- 
ben sich dann als 


MIX = MIN(MINYPX+MINX, 
MINAX, 0) 

MX = MAX(MAXYPX+MAXX, 
MAXX, 0) 

MIZ = MIN(MINYPZ+ MINZ, 
MINZ, 0) 

MZ = MAX(MAXYPZ+MAXZ, 


All diese Formen beruhen auf 
dem gleichen Prinzip. Es ist ein Ex- 
tremwert aus mehreren Grenzwer- 
ten zu bilden, die sich aus den Ach- 
senextrema mit und ohne Projektion 
ergeben. Die0 wurde Se inallen 


Gleichungen eingeführt, um sicher- 
zustellen, daß der Nullpunkt unse- 
res Koordinatensystems auf dem 
Bildschirm dargestellt wird. Er ist ja 
eine wichtige Orientierungshilfe. 
Wenn die Maxima auf jeder Achse 
kleiner als Null gewählt wurde, be- 
ziehungsweise sich als keiner Null 
ergeben, so würde der Nullpunkt 
nicht abgebildet werden. Derselbe 
Falltritt natürlich auch ein, wenn alle 
drei Wertebereiche deutlich positiv 
gewählt wurden, alsoalle Minima im 
positiven Bereich liegen. Aus Grün- 
den der Auflösung kann es aber in 
manchen Fällen geraten sein, auf: 
die Darstellung des Achsenkreuzes 
zu verzichten. Dies ist ratsam, wenn 
man in relativ weiter Entfernung‘ 
vom Achsenkreuzeinen nur kleinen 
Wertebereich analysieren will (bei- 
spielsweise bei 50<x<5l, 50<y< 
öl). Wenn man hier das Achsen- 
kreuz darstellen läßt, so kleben am 
rechten Bildschirmrand einige 
Funktionswerte, am linken Rand 
wird das Achsenkreuz abgebildet 
und der Zwischenraum bleibt leer. 
In solch einem Fall sind die Null- 
Vergleichswerte zur Bestimmung 
der Extremwerte zu streichen. 

Die Koordinaten des Nullpunktes 
erhalten wir nun in Analogie zur 
zweidimensionalen Darstellung. Da- 
bei wurde allerdings unser Bild- 
schirmfenster in der Höhe etwas 
verkleinert, um oberhalb und unter- 
halb der Darstellung noch Platz für 
Beschriftungen und so weiter zu re- 
servieren. Dafür wurden jeweils 40 
Bildschirmlinien vorgesehen. Es gilt 


Nach dieser »Vorarbeit« können 
wir uns nun daran machen, unser 
3D-Darstellungsprogramm zu 
schreiben (Listing 2). 


Bild 3. Die Extrempunkte der zwei- 
dimensionalen Abbildung liegen 
auseinander 


20 ' 
3@' 


I 


7@ 
eu‘ 
9@ Mi 


ı 
100 
118 
129 
138 
140 
158 
168 
178 


188 
198 


208 PRINT:PRINT f$:PEN Q: 


ERTEILEN ee 


** 2-D-Graph #** 
RR 


40 CLS 
5@ ymin=1E+38: ymax 


1E+38 
enze X"ixmin 
NPUT"Obergrenze{2 SPACE)X";xmax 


88 sx= (xmax-xmin)/639 
98 PRINT"Sind die Y-Extrema bekannt j/n" 


z$=LOWER$(INKEY$): IF z4=" 
ELSE IF z$<>"j" THEN 108 
INPUT"Untergrenze_Y";ymin 
INPUT"Obergrenzet2 SPACE} Y";ymax 
G0TO 158 

ymin=1E+38: yvmax=-1E+38:FOR x=xmin TO 
xmax STEP sx:BOSUB 250: ynax=MAX (yma 
x,y)zymin=MIN(ymin„y)sNEXT x 

cx=639/ (xmax-xmin) 

cy=399/ (ymax-ymin) 

ox=-xmin/ (xmax-xmin)#639 

oy=-ymin/ (ymax-ymin) #399 

DRIGIN oX,oy 

CLS 

PLOT ®,@:DRAWR 8,400: DRAWR @,-8@0: MO 

VE 8,0:DRAWR 640,8: DRAWR-1280,8 
x=xmin: SOSUB 25@: PLOT Rack ‚yrcy 

FOR x=xmin TO xmax STEP sx:60SUB 25@ 
ıDRAW x#ck ‚cy#yaNEXT x 

60TO 248 

y=COS (3#x) #SIN (x) +SIN(Zux) 

RETURN 


THEN 140 


LEFSCI 
EBDA&] 
L8F48] 
EDACCI 
LBFF4] 
[SEC4] 
LSCFEI 
[O8F2] 


[3EC81 


L61@C1 
CB928) 
CA9SAI 
CBF46] 


15084] 
CAD2E] 
[2ESCI 
16978] 
[99801 
CAD3A] 
[8528] 


LEFBCI 
LEFAEI 


L87CE] 
TED4A] 
CFEIEI 
CBB383 


PETER ELLLELEEU EG 
‘** SD-Graphikmaster ** 
'**by Carsten Straush** 
2 9/10/1985 “. 
RR 
RR 


** Initialisierung ** 
RR 
ODE 1:INK @.@:INK 1,24: INK 2,11:PEN 


CLS:DEG 

co=C0S (18) :si=SIN(18) zta=si/co 

RAD 

Rss 

'** Funktionsabfrage ** 

er er 

KEY DEF 45,1,1@6:KEY DEF 46,1,11@ 

PRINTFBIEEG geben Sie die Fünktion e 
NPUT #$ 

PRINT Ist diese Funktion o.k. 


(/m? 
KEY 131,"Goto 9M"+CHRF(13):KEY DEF 4 


6,1,131 
EY_ 128,"121@ " 
+f$+CHR$ (13) +"goto 258" +CHR$ (13) 


21@ KEY DEF 45,1,128:END 
220 
258 '** Werte einl 
240 
2590 PEN 1:PRINT"Bitte geben Sie den Bere 


RR 
en ** 
EREITELTTLELEE EEE 


ich ein,(2 SPACE}in demdie X-Werte d 
ifferieren sollen. 


KEY DEF 45,1,186:KEY DEF 46,1,118 


27@0 PRINT 


INPUT"Minimalwert X"zminx 


290 INPUT"Maximalwert X":maxx 


IF maxx<minx THEN PRINT"Falsche Eing 
abe":PRINT:G0TO 288 
PRINT 


320 PRINT"Bitte geben Sie den Bereich ei 


n,{2 SPACE}in demdie Y-Werte differi 
eren sollen." 


330 PRINT 
348 INPUT"Minimalwert Y"zminy 


INPUT"Maximalwert Y"zmaxy 


36@ IF maxy<miny THEN PRINT"Falsche Eing 


abe":PRINT:GOTO 348 


370 Wanna 


‘“* Darstellungsart #* 


ZI 1 naar 


PRINT 


itte geben Sie die Darstellun 
ing" 

aufende X-Werte{5 SPACE} (1)" 

aufende Y-Werte(5 SPACE) (2) " 

ernetzung{ii_ SPACE) (3)" 


440 z$=INKEY$:IF z#="" THEN 440 ELSE IF 


ASC(z$)<49 OR ASC(z$)>51 THEN 448 EL 
SE d=VAL(z#) 
IF d=1 THEN sx=(maxx-minx) /10@:sy= (m 
axy-miny)/1Q 
Ir THEN sx= (maxx-minx) /1Q:sy= (ma 
xy-miny)/10@ 
IF d=3 THEN sx=(maxx-minx) /1Q:sy= (ma 
xy-miny) /1Q 


48@ CLS:PRINT"Grenzwertbestimmung" 
498 PRINT"Sind die Grenzwerte fuer Z bek 


annt j/n?* 


13988] 
LC9QEI 
C6E4E] 
19584] 
[45980] 
[&43E1 
ED&BCI 
[7442] 


[68681 
LD23A] 
LC8@8] 
L4A141 
[OBEEI 
LEAFAI 
L25F2] 
CA4DEI 


C8C5C3 
[32BE] 
L3F@A1 


1384A] 
LF992] 
[3346] 
L7D7C1 
[05441 


15094] 
[BAEBI 
[628C] 
CAAaCI 
[4916] 


TEB9A] 
1C882) 


[BAB6] 
CCEB6] 
C180A] 
c4D143 


171A4] 
[2246] 
LCD121 
LC2AA] 
[@EACI 
L4D38] 
L9D36] 
LFE48] 
L14F6J 
EZFECI 
LSCF@I 


[28941 
18158] 


LEBEBI 


Grafik-Grundlagen 


588 z$=LOWER$(INKEY$): IF z#="j" THEN 618 
ELSE IF z$<>"n" THEN 5908 144298] 
51@ "ab kan LABSA] 
520 '#** autom. Grenzwertbestimmung *#* [DA7AI 
530 '# DELL EEE I EZ £C23E] 

540 maxz=-1E+38:minz=1E+38: mix=1E+38:mx= 
-1E+38 LCD2CI 
55@ FOR y=maxy TO miny STEP y LECD6] 
568 FOR x=maxx TO minx STEP -sx £11D8] 
57@ GOSUB 1218 2 13348] 
580 maxz=MAX (maxz,z)zminz=MIN(minz,z) 19744] 
590 NEXT x,.y [6874] 
600 GOTO 5648 LFFS6] 
618 INPUT"Minimalwert Z"sminz LF78E] 
628 INPUT"Maximalwert Z";maxz [BE18]J 
DREI E E 13194] 
648 '#* Koordinatensystem berechnen #*%* LAF&C] 
65 "Hana aaa [A998] 
668 minypx=co®minysminypz=si#miny LAB7®] 
670 maxypx=co#max yimaxypz=si#maxy t4F82] 

688 mix=MIN (minypx+minx „minypx „minx ,‚B)im 
iz=MIN (minypz+minz ‚minypz ‚minz,®) CDFa81 

698 mx=MAX (maxypx +maxx „maxypx „‚maxx,B)sma 
z=MAX (maxypz +maxz „maxypz ‚maxz,d) 13808] 

708 ORIGIN mix / (mx-mix) #639, 40+ (-miz/ (m 
az-miz))#*320 LE9ABI 
zı@ CLS [9634] 
720 cx=(mx-mix)/639 [67A6]1 
730 cy=(maz-miz)/320 [B25A] 
TA ° na L11F8] 
750 '** Funktion darstellen #** ESSCE] 
TED 7 Man L79FC] 
770 '** laufendes Y #** [SBFA] 
7B@ ° 6a [A368] 
79@ IF d=1 THEN GOSUB 930:60T0 19038 [1286] 
880 IF d=2 THEN GOSUB 828:60T0 1038 18974] 

818 IF d=3 THEN GOSUB 930: G0SUB 820:60T0 
19038 [F664] 
828 FOR x=maxx TO minx STEP -sx LIFCEI 
830 v=maxy:GOSUB 1210:G0SUB 1238 £C91DCI 
848 PLOT xz,yz,2 [C814] 
858 FOR y=maxy-sy TO miny' STEP -sy LBEBEI 
860 GOSUB 1218: G0SUB 1238 L9C84] 
878 DRAW xz,yz,2 C91F8J 
888 NEXT y,x [6778] 
898 RETURN CAF42] 
FOR "He [5D54J 
918 '*#* laufendes X #** L6AFB] 
920 HH LFSS8] 
938 FOR y=maxy TO miny STEP -sy EFZ2DA] 
948 x=maxx:G0OSUB 121@:G0SUB 1238 £15DC] 
958 PLOT xz,yz,2 [3718] 
968 FOR x=maxx-sx TO minx STEP -sx [86881 
978 GOSUB 121@:60SUB 12358 [8588] 

980 DRAW xz,yz,2: MOVE xz,yz-2:DRAW xz,— 
400,0 L43D2] 
998 NEXT x,yv:RETURN [59B8] 
1ODO "ra [4498] 
19018 '** Eckangaben und Kreuz *#* LAFD@] 
1020 HH EBASCI 

190380 MOVE -320,0:DRAWR 960,8,1:MOVE 8,-4 

0@:DRAWR 8,.800:MOVE 9,@:DRAWR 648,2 
88: DRAWR-1280,-488 L6EEAI1 

1040 MOVE minx/cx „@:DRAWR 8,10,3:DRAWR & 
„28 LA732] 

1858 PRINT CHR$ (22) +CHR$ (1): TAGSPRINT RO 
UND (minx „29; [D344] 

1860 MOVE maxx/cx „B:DRAWR 8,10:DRAWR 8,— 
20 £D37C] 
1087@ MOVER -48,8: PRINT ROUND (maxx „2) 5 LE42AJ 

1080 MOVE @,maxz/cy:ı DRAWR -10,@0:DRAWR 20 
‚a [1286] 
1090 MOVER 8,8: PRINT ROUND (maxz,2); [C588] 

110@ MOVE B,minz/cy: DRAWR -190,@0:DRAWR 28 
„B 132741 
111@ MOVER @,8:PRINT ROUND (minz,2); [B66EJ 

1120 MOVE maxypx/cx ,tatmaxypx/cx:DRAWR — 
5,12:DRAWR 18 124 [381A]J 
11380 MOVER-4Q, PRINT ROUND (many,2); [SEE6] 

1148 MOVE minypx/cx ‚ta®minypx/ck: DRAWR - 
5,12:DRAWR 18,-24 LFE16] 
115@ PRINT ROUND (miny ‚2 Zu L@D86] 
1168 TAGOFF:PRINT CI er ) +CHRS (0) £C1D2] 
117@ IF INKEY$="" THEN 117® ELSE RUN L1CA6I 
11B@ " naeaa LCCAEI 
1190 ‘** Formel ausrechnen #*#* [9156] 
1200 * ra L91AB] 
1210 zex#y L386C] 
1220 yz=si#y+z:RETURN LA1Ab] 
1238 xz=(co#y+x) LiBFCI 
1240 yz=yz/cyıxzexz/ck L4AF4] 
125@ RETURN [8098] 
1268 "Wan [B404] 
1270 ‘** Hilfsfunktionen ** [73683 
12B@ "aka [7408] 

129@ PRINT"mix ‚mx ‚miz ‚maz,cx,cy":PRINT m 
ix mx ‚miz,ma2,ck,cy LF&CQI 
1398 END EFD76] 
131@ z=9.B1#*(y”2)+x+10 [D81C] 

1328 IF x=@® THEN RETURN ELSE z=SIN(x)/(x 
rn -(x=9)) LB81EEI 

r2+ 

530 2=x°2+y02 Listing 2. 3D-Grafik mit Komfort °7?P*1 


2 


Grafik-Grundlagen u 


Die Skalierungsfaktoren berech- 
nen sich ähnlich der zweidimensio- 
nalen Grafik. Die Berechnung fin- 
den Sie in den Zeilen 720 und 730. 
Das Programm enthält natürlich 
auch eine Routine zur automati- 
schen Bestimmung der Extremwer- 
te der eingegebenen Funktion (Zeil 
840 und folgende). Diese können 
auch »von Hand« festgelegt werden, 
Die eigentliche Zeichenroutine liegt 
ab Zeile 750. Ein und dieselbe drei- 
dimensionale Funktion kann eine 
Fülle verschiedener Figuren als 
grafisches Ergebnis haben, je nach 
Größe der Schrittweite in x- und y- 
Richtung, Das Programm be- 
herrscht drei Darstellungsvarian- 
ten. Zum ersten ist es möglich, x in 
sehr kleinen Schritten zu variieren 
und dabei y sprungweise zu verän- 
dern. Dieses Verfahren bietet sich 
an, wenn kleine oder häufige (perio- 
dische) Änderungen des Funktions- 
wertes bei Änderung von X auftre- 
ten (beispielsweise wenn in dem 
Graphen ein Winkelfunktionsterm 
[cox(x), sin(x) und so weiter] auf- 
taucht), y läuft in diesem Fall in zehn 
gleichen Schritten von MINY bis 
MAXY. Die weite Abbildungsart ist 
die Umkehrung dieser Methode. 
Fein verändertes y bei einer groben 
Variation von x. In beiden Fällen er- 
gibt sich eine Linienschar. Als drit- 
ter Fall bleibt dann noch die Kombi- 
nation aus beiden Verfahren übrig. 
Es entsteht ein dreidimensionales 
Gittermodell. Beim Zeichnen der Li- 
nien wird dabei zunächst der äußer- 
ste linke, beziehungsweise bei lau- 
fendem y der oberste Punkt einer 
jeden Linie mit PLOT gesetzt, worauf 
dann mit DRAW einzelne Linien ge- 
zogen werden. 


- - Automatische 
Grenzwertbestimmung 


Bevor wir uns nun mit einigen wei- 
teren Punkten beschäftigen, sollten 
Sie das Programm eintippen und 
laufen lassen. Als Funktion wählen 
Sie zuerst z=x+y und lassen sich 
die Funktion im Bereich —10 bis 10 
für X und Y zeichnen. Nach Wahl 
der automatischen Grenzwertbe- 
stimmung (bei Grenzwerte für z »n« 
eingeben) erhalten Sie das erste 
Diagramm. Auf der x- und y-Achse 
müssen nun die Extrema aufgetra- 
gen sein (—10 beziehungsweise 10) 
und die Z-Achse ist mit —20 und 20 
beschriftet. Ob auch sonst alles 
stimmt, können Sie nach Exc mit 
»GOTO 1290« kontrollieren. Hier 
werden die wichtigsten Variablen 


Funktion 


2=SIN(x)+CO&y) 
2=SIN(x)*COS(x) 


z=xty 
z=xtx+yty 
2=(x-S)13*y*SIN(y) 


Tabelle 1. Die Funktionen besitzen eine tolle Grafik 


ausgegeben. Da wegen der Viel- 
zahl von Parametern mit ähnlichen 
Bezeichnungen schon mal ein Ein- 
gabefehler vorkommt, kann hier die 
gen Angaben zur Kon- 
trolle: 


MIX =—19.81 
MX 9. 


CY =0.144313 

Nach dieser Probe können wir 
uns nun einige wirklich interessante 
Funktionen anschauen. Lassen Sie 
sich dabei ruhig ein wenig überra- 
schen. 

Wir wollen uns nun mit einigen 
Problemen befassen, die bei dieser 
Art der Darstellung auftreten. Neh- 
men wir einmal das Beispiel eines 
von hinten nach vorme gebogenen 
Sattels. Beider Abbildungals Gitter- 
modell durchdringen die hinteren 
Linien die vorderen. Bei einem ein- 
fachen Sattel ist es möglicherweise 
noch sinnvoll, weil die Biegung in 
der Linienführung die Grundstruk- 
tur der Figur noch betont. Wenn 
man jedoch auf der Y-Achse eine 
Sinus-Funktion aufträgt, ergeben 
sich mehrere voneinander liegende 
„Wellenberge«. Die klare Übersicht 
leidet und es ergibt sich ein ziemli- 
cher Linienbrei. Für diese Problem- 
fälle unter den Funktionen gibt es 
nun die Möglichkeit, die weiter hin- 
ten liegenden Funktionsteile auszu- 
blenden. Man erlebt die Figur dann 
nur noch so, als wenn sie undurch- 
sichtig wäre. Die dazu notwendigen 
Voraussetzungen bietet unser Pro- 
gramm bereits. Wir müssen nur 
noch einige kleine Änderungen vor- 
nehmen. Das Prinzip ist dabei ganz 
einfach: Wenn wir laufende x-Werte 
darstellen, also y sprungweise vari- 
ieren, so müssen wir die Änderung 
auf der Y-Achse — beginnend mit 
dem Maximum zum Minimum hin — 
vornehmen und dabei jeweils die 
Fläche unter der gerade dargestell- 
ten Kurve löschen. Bewegt sich die 
Funktion wie bei einer Sattelfunk- 
tion dann wieder nach oben, so wer- 
den die hinten liegenden Flächen 


überschrieben. Um dies zu errei- 
chen, müssen wir die Darstellungs- 
routine für laufende x ein wenig än- 
dern. Zunächst muß die Schrittweite 
für sx verkleinert werden, damit 
auch jeder Punkt einzeln angespro- 
chen wird. Der Divisor von 100 in 
Zeile 50 muß also herabgesetzt wer- 
den. Als nächstes müssen wir dann 
nurnoch den ersten DRAW-Befehl in 
Zeile 980 durch PLOT ersetzen, 
durch Streichen des REM-« die 
nachfolgenden beiden Befehle akti- 
vieren und schon erhalten wir diese 
neue Darstellung. Da durch die fei- 
nere Auflösung die Rechenzeit er- 
heblich länger ist, benötigt diese 
Abbildungallerdings vielmehr Zeit. 


Gittergrafiken mit 
laufendem x 


Doch es gibt eine Reihe von Funk- 
tionen, wo diese Technik Vorteile 
bringt, beispielsweise bei z=x*y, 
Obwohl das Gittermuster, das man 
bei einer »laufenden x«-Darstellung 
erhält, durch die Änderungen teil- 
weise gelöscht wird, wirkt die Figur 
dennoch natürlicher. Welche Dar- 
stellungsart Ihnen am meisten zu- 
sagt, ist natürlich Geschmackssa- 
che. Probieren Sie es einfach aus. 

Sollten Ihnen die oben angegebe- 
ne Funktionen zu »normal« und be- 
kannt erscheinen, so probieren Sie 
einmal den folgenden Term aus: 
2z=1-SIN(YIFCOSKX)*X*Y jeweils 
im Bereich von —4 bis 4. Möglicher- 
weise werden Sie sich auch gefragt 
haben, wie denn die genaue An- 
sprache und Definition der Funktion 
vor sich geht. Das lästige Eintippen 
des Funktionsterms mit vorange- 
stellter Zeilennummer entfällt ja im 
Gegensatz zu unserem 2D-Pro- 
gramm in der 3D-Routine. Die Ant- 
wort auf diese Frage finden Sie am 
Anfang des Programms. Hier nur 
zwei Tips, die weiterhelfen: 

1. Was man nicht sieht, kann trotz- 
dem passieren. 

2. Eine einfache Abfrage muß nicht 
unbedingt eine einfache Abfrage 
sein. 


(Carsten Straush) 


Spitzen-Softwure für 
Schneider-Computer 


und Commodore 128 PC 


| Und dazu die 


WordStar 3.0 mit MailMerge ber Bestseller unter den Taxtverarbei- 


tungsprogrammen für POS bietet Ihnen bildschirmorientierte Formatierung, deutschen 


Zeichensatz und DIN-Tastatur sowie integrierte Hilfstexte. Mit MailMerge können Sie | 

‘Serienbriefe mit persönlicher Anrede an eine beliebige Anzahl von Adressen schreiben Mich | weiterführende 
und auch die Adreßaufkleber drucken. Schneider CPC 

WordStar/MallMerge für den Schneider CPC 484°, CPC 664* Software . 

Ber ME 101, Dita) Literatu 


‚Nr. MS 102 (51, "-Diskette im VORTEX-Format) | 
rIMallMerge für den Schneider CPC 6128 

te) 

Schneider Joyce PCW 8256 

Best.Nr. MS 105 (3-Diskette) 

Hardware-Anforderungen: Schneider CPC 464 *, CPC 664", CPC 6128 oder Joyce, 
beliebiger Drucker mit Centronics-Schnittstelle 

* Der Standard-Speicherplatz beim CPC 464/664 erlaubt ohne Speichererweite- 
rung Blockverschiebe-Operationen nur bedingt und Simultan-Drucken gar nicht. 
‚WordStar/MailMerge für den Commodore 128 PC 

Bestell-Nr. MS 103 (5), "-Diskette) 

Hardware-Anforderungen: Commodore 128 PC, Diskettenlaufwerk, 80-Zeichen-Monitor, 
beliebiger Commodore-Drucker oder ein Drucker mit Gentronics-Sehnittstelle 


WordStar für den Schneider CPC 

Be: MT 779, ISBN 3-89090-180-8 
WordStar für den Commodore 128PC 

Best.Nr. MT 780, ISBN 3-89090-181-6 


dBASE Il, Version 2.41 dsase Il, das meistverkaufte Programm unter 
den Datenbanksystemen, eröffnet Ihnen optimale Möglichkeiten der Daten- u. Datel- 
hhandhabung. Einfach u. schnell können Datenstrukturen definiert, benutzt und geän- 
dert werden. Der Datenzugriff erfolgt sequentielloder nach frei wählbaren Kriterien, die 
integrierte Kommandosprache ermöglicht den Aufbau kompletter Anwendungen wie 
Finanzbuchhaltung, Lagerverwaltung, Betriebsabrechnung usw. 

dBASE II für den Schneider CPC 464°, CPC 864" 

Bestell-Nr. MS 301 (3”-Diskette) m 
Bestell-Nr. MS 302 (54 ”-Diskette im VORTEX-Format) 

dBASE Il für den Schneider CPC 6128 

Bestell-Nr. MS 304 (3-Diskette) 

dBASE II für den Schneider Joyce PCW 8256 

Best.Nr. MS 305 (3"-Diskette) | 

Hardware-Anforderungen: Schneider CPC 464”, CPC 664", CPC 6128 oder Joyce, 
beliebiger Drucker mit Gentronics-Schnittstelle 


dBASE II für den Schneider CPC 

Best.Nr. MT 837, ISBN 3-89090-188-3 
dBASE Il für den Commodore 128 PC 
Best.Nr. MT 838, ISBN 3-89090-189-1 


* dBASE Il für den Schneider CPC 464/664 ist lauffähig mit der VORTEX-Speicher- | AASITCN Tre 
srweierung auf 12B KByte Diese eralln Si direkt ei der Firma VORTEX oder bei | für den 

Ihrem Computerhändler. 

dBASE II für den Commodore 128 PC Schneider CPC 6128 
Bestell-Nr. MS 303 (5; "-Diskette) 3 Schneider-Format 


Hardware-Anforderungen: Commodore 128 PC, Diskettenlaufwerk, 80-Zeichen-Monitor, 
beliebiger Commodore-Drucker oder ein Drucker mit Centronics-Schnittstelle 


MULTIPLAN, Version 1.06 wenn Sie die zeitraubende manuelle 
Verwaltung tabellarischer Aufstellungen mit Bleistift, Radiergummi und Rechenmaschine 


satt haben, dann ist MULTIPLAN, das System zur Bearbeitung »elektronischer Datenblät- MULTIPLAN für den Schnelder CPC 


tere, genau das richtige für Sie! Das benutzerfreundliche und leistungsfähige Tabellenkal- ac, 
kulationsprogramm kann bei allen Analyse- und Planungsberechnungen eingesetzt wer- 128erSoftware a 
den wie z.B. Budgetplanungen, Produktkalkulationen, Personalkosten usw. Spezielle For- | a ee nz 


bereitete Präsentationsunterlagen! 

MULTIPLAN für den Schneider CPC 464°, CPC 664° 
Bestell-Nr. MS 201 (3"-Diskette) { 
Bestell-Nr. MS 202 (5), -Diskatte im VORTEX-Format) 
MULTIPLAN für den Schneider CPC 6128. 


matierungs-, Aufbereitungs- und Druckanweisungen ermöglichen außerdem optimal auf- | 


Bostell-Nr. MS 204 (3”-Diskatte) 

MULTIPLAN für den Schneider Joyce PCW 8256 | MICR 

Best.Nr. MS 205 (*-Diskette) | 

Hardware-Anforderungen: Schneider CPC 464*, CPC 684°, CPC 6128 oder Joyce, | MULT! 

Belebiger Druckar mit CtroniceSehniisele | für den 

. für den Schneider CPC 464/864 ist lauffähig mit der VORTEX-Speicher- 

erweiterung auf 128 KByte. x en | Commodore 128 PC 
MULTIPLAN für den Commodore 128 PC | S1.Disete 


Bestell-Nr. MS 203 (5), "-Diskette) Im Floppy 164 1-Format, Con 
Hardware-Anforderungen: Commodore 128 PC, Diskettenlaufwerk, B0-Zeichen-Monitor, 
beliebiger Commodore-Drucker oder ein Drucker mit Centronics-Schniltstelle 


Sie orhaton jedes WordStar- dBASE Il-und MULTIPLAN-Programm für ihren Schneider- Jedes Programm 
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3D auf dem CPC 


Schlagworte durch die Compu- 

terwelt: CAD und CAM. Der er- 
ste Begriff steht für computerunter- 
stützte Entwicklung (Computer Ai- 
ded Design), der zweite für compu- 
terunterstützte Produktion (Compu- 
ter Aided Manufacturing). Die Ent- 
wicklung geschieht auf dem Bild- 
schirm und eine Reihe nachgeschal- 
teter Maschinen produziert nach 
den gezeichneten Angaben dann 
das reale Produkt. CAD und CAM 
sind jedoch nur zwei Anwendungs- 
bereiche für den Einsatz von Com- 
putergrafiken. Für den Normalbe- 
nutzer viel interessanter ist beispiel- 
weise ein anderes Gebiet: Die Dar- 
stellung von Funktionen und Relatio- 
nen, speziell Funktionen, die von 
mehreren Variablen abhängig sind. 
Hierbei wird die- Grafik, genauer 
die dreidimensionale Grafik, be- 
nutzt, um auch sehr komplexe Zu- 
sammenhänge anschaulich zu ma- 
chen, Beginnen wir zuerst mit den 
Grundlagen der 3D-Programmie- 
rung, mit einigen Figuren im zweidi- 
mensionalen Raum. Den Schneider 
befähigen zwei Befehle, fast jede 
zweidimensionale Funktion abzubil- 
den: PLOT und DRAW, wahlweise 
noch mit angehängten R für die re- 
lative Koordinatengabe, Das erste 
Kommando zeichnet einen Punkt. 
Das zweite zieht eine Linie von der 
letzten Position des Grafik-Cursors 
zu dem neuen Zielpunkt. Einfache 
Figuren bestehen aus einem ge- 
schlossenen Linienzug. Um eine sol- 
che Figur zu malen, müssen wir also 
nur einen Anfangspunkt mit PLOT 
setzen und darauffolgend die Eck- 
punkte unserer Linien angeben. 
Beispielsweise liefert uns »CLS: 
PLOT 270,150:DRAW 370,150:DRAW 
370,250:DRAW 270,250:DRAW 270, 
150« ein Rechteck in der Mitte des 
Bildschirms. Etwas komplizierter 
wird es, wenn wir Kreise oder Ellip- 
sen zeichnen wollen. In jedem Fall 
ist hier der Kreis Ausgangsbasis. 
Gegebenenfalls wird er in eine 
Richtung verzerrt. Die Berechnung 
der Kreislinie geschieht dabei ent- 


S: einiger Zeit geistern zwei 


] Dreidimensionale Grafiken sind der 
Traum vieler Programmierer. Damit 

es nicht nur ein Traum bleibt, fin- 

den Sie hier die Grundlagen dazu. 


weder mit Hilfe von Winkelfunktio- 
nen oder nach dem Satz des Pytha- 
goras. Die Kreislinie erscheint dann 
entweder als geschlossener Linien- 
zug oder sie wird durch Einzelpunk- 
te mit Hilfe von PLOT dargestellt. 
Bild 1 zeigt die grundsätzlichen Zu- 
sammenhänge verschiedener Kreis- 
punkte. Die Hypothenuse des recht- 
winkeligen Dreiecks ist mit dem Ra- 
dius identisch. R*sin « gibt uns den 
YWert, R*cos « den entsprechen- 
den X-Wert an. Der YWert für gege- 
bene X läßt sich auch mit Hilfe der 
Wurzel berechnen n (Y = YR2—X3) 

Wenn Sie das eingezeichnete 
Dreieck an der X- und Y-Achse spie- 
geln, bekommen Sie vier spiegel- 
bildliche Dreiecke. Die Zahlenwerte 
der Koordinaten sind immer gleich, 
nur die Vorzeichen ändern sich. Mit 
einer einzigen Berechnung lassen 
sich also gleichzeitig vier Punkte auf 
der Kreislinie bestimmen. Einzige 
Voraussetzung: Der Mittelpunkt des 
Koordinatensystems muß mit ORI- 
GIN in das Kreissystem verlegt wer- 
den, damit auch die negativen Wer- 
te dargestellt werden können. Das 
Programm aus Listing 1 befähigt 
uns, nun einen Kreis als Linienzug 
mit Hilfe der Winkelfunktionen zu 
zeichnen 

In Abhängigkeit von s (je größer s, 


3D-Grafiken auf 
dem Bildschirm sind 
nicht schwer 


desto perfekter der Kreis) nähert 
sich das anfängliche Vieleck immer 
mehr einem Kreis an. Je nach ge- 
wünschter Auflösung vergrößert 
sich umgekehrt natürlich auch die 
Rechenzeit. Die höchste Auflösung 
erreicht man, wenn jeder Punkt ein- 
zeln angesprochen wird. In diesem 
Fall ist es dann natürlich sinnvoll, 
DRAW durch PLOT zu ersetzen. Mit 
50 Punkten (das heißt 13 Berechnun- 
gen)wird derKreisaber auch schon 
sehr genau. 

Der Unterschied zwischen Kreis 
und Ellipse ergibt sich relativ ein- 
fach. Man multipliziert lediglich die 
X- beziehungsweise Y-Werte mit ei- 
nem Verzerrungsfaktor. Listing 2 de- 
monstriert diesen Effekt. Zunächst 
wird der Bildschirm gelöscht und 
der Mittelpunkt unseres Koordina- 
tensystems in das Bildschirmzen- 
trum verschoben. 

In einer Schleife werden dann je- 
weils vier Punkte gleichzeitig ge- 
setzt. Die Variable e enthält dabei 
den Verzerrungsparameter. Für 
e=] ergibt sich ein Kreis, bei allen 
anderen Werten eine Ellipse, Wenn 
Sie mit diesem Parameter »spielen«, 
so resultieren daraus völlig ver- 
schiedene Ellipsenformen. 

Mit der Verzerrung unseres Krei- 
ses ist nun auch schon der Schritt 
von der zweidimensionalen zur drei- 
dimensionalen Grafik getan. Schau- 
en wir uns zunächst einmal anhand 
von zwei Beispielen (einem Quader, 
Listing 3und einem Zylinder, Listing 
4) an, wie dreidimensionale Körper 
programmiert werden können. 

Im Bereich der dreidimensiona- 
len Grafik gibt es zwei grundsätzli- 
che Darstellungstypen: das Gitter- 
modell und die Vollgrafik. Beieinem 
Gittermodell werden nur die Be- 
grenzungs- und Decklinien eines 
Körpers dargestellt; die dazwi- 
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10 Se 
28 '** Vielecke zeichnen ** 
E nn nn 


ORIGIN 32 

PLOT 158,8 
80 FOR i=1 10 s 
90 x=C0S (2+PI#i/s)*15@ 
198 y=SIN(2+PI#i/s)*150 
11® DRAW AV 
128 NEXT 


67] 

30 

5@ INPUT"Seitenzahl";s 
&0 2,200 

7a 


Listing 1. Aus einem Vieleck wird ein Kreis 


1S5DC1 1B wann 199941 
134541 28 '=* Ellipse #* LOSBEI 
[DSEBI IQ 'nunenenaueee [3998] 
EDACCI 4@ CLS:ORIGIN 328,288 C2BB61 
C6FSCH 5@ INPUT"Laenge der Halbachse";a [36 
[8982] &8 INPUT"Exzentrik";e £787C3 
LAZB@I 78 CLS LEFD2I 
[8578] 2@ FOR »=-a TO @ LADCAI 
L61BCJ 90 y=exSOR (a"2-x"2) L9A76I 
£C718] 100 Den x,yzPLOT x,-yzPLOT -x,yzPLOT -x 

1593A1 

L39F6] 110 Next 


Listing 2. Aus einem Kreis wird eine Ellipse 


Bild 3. Der Zylinder in der Ebene 


Bild 2. Ein Quader als 
zweidimensionale Grafik 


schenliegenden Flächen des Mo- 
dells bleiben frei. Allerdings sind 
auch die eigentlich durch den Kör- 
per verdeckten Eckkanten sichtbar. 
Im anderen Fall, bei der Vollgrafik, 
wird das Modell ausgemalt. Es sind 
nur Flächen zu sehen, die man auch 
bei der Betrachtung eines realen 
| Körpers sehen würde. Die einzel- 

nen Seiten sind dabei meist mit un- 
terschiedlicher Farbe hervorgeho- 
ben, um den räumlichen Aspekt 
noch zu vertiefen. Wenden wir uns 
den beiden »Versuchsobjekten« 


Quader und Zylinder zu. 
Wie die beiden Varianten als Fi- 
_ guren aussehen, zeigen die Bilder 2 
und 3. In beiden Fällen wurde dabei 
‚das Gittermodell gewählt. 


Das Hauptproblem einer jeden 
dreidimensionalen Grafik ist die 
perspektivische Darstellung der 
räumlichen Zusammenhänge. Der 
Winkel, unter dem die nach hinten 
laufenden Linien erscheinen, ist 
hierbei der ausschlaggebende 
Aspekt. Ist er ungünstig gewählt, so 
erscheint die ganze Figur künstlich 
und unwirklich. Die Begründung 
hierfür ist einfach. 

Das menschliche Auge liefert ein 
zweidimensionales Abbild unserer 
räumlichen Umwelt. Die dritte Di- 
mension nehmen wir nur indirekt 
wahr, nämlich als Projektion in den 
zweidimensionalen Raum. Die Tie- 
fenempfindlichkeit, also die Wahr- 
nehmung der dritten Dimension, 
läuft über einen Denkvorgang als 
Schlußfolgerung ab. Das beste Bei- 
spiel liefert eine Eisenbahnschiene 
oder eine sehr lange gerade Straße. 
Sobald zwei parallel laufende Be- 
grenzungslinien sich einander nä- 
hern, so interpretiert das Auge dies 
als eine Eisenbahnschiene oder 
Straße, die sich immer weiter vom 
Betrachter entfernt und tief in den 
Raum hineinreicht. Daß dieses Ver- 
fahren nicht ganz fehlerlos ist, bele- 
gen die zahlreichen sogenannten 
optischen Täuschungen. Uns inter- 
essiert jedoch nur die Art und Wei- 
se, wie das ee Auge seine 
Umwelt 


Wollen wir einen dreidimensiona- 
len Eindruck erreichen, so müssen 
wir also eine zweidimensionale Ab- 
bildung erzeugen, in die die dritte 
Dimension hineinprojiziert wird. Da- 
zu eignen sich mehrere Verfahren. 
Wir beschäftigen uns zunächst mit 
der relativ einfachen Parallelpro- 
jektion. Um einen dreidimensiona- 
len Körper als zweidimensionale 
Projektion abzubilden, sind zwei 
Schritte notwendig. Zunächst einmal 
muß der Körper in einem geeigne- 
ten dreidimensionalen Koordinaten- 
system erfaßt werden, bevor die da- 
bei festgestellten Koordinaten in ei- 
ne zweidimensionale Darstellung 
transformiert werden. 

Basis jeder Transformation ist zu- 
nächst einmal ein dreidimensiona- 
les Koordinatensystem, wie Sie es 
bei der Würfeldarstellung in Bild 4 
vorfinden. Der Würfel ist durch die 
acht Punkte A‚BC,DE,F,GundH 
im dreidimensionalen System defi- 
niert, Wenn (wie in Bild 4) die linke 
untere Ecke unseres Körpers (A)im 
Schnittpunkt der drei Achsen X, Y 
und Z liegt, und jede Kante unseres 
Würfels die Länge 1 hat, lassen sich 
die Eckpunkte der Figur leicht an- 
geben. D hätte zum Beispiel die 
Koordinaten (1,0,0); E (11,0) und G 
AL). 

Bei einer Parallelprojektion legen 
wir nun über dieses dreidimensio- 
nale Koordinatensystem ein zweidi- 
mensionales Achsenkreuz mit den 
Achsenbezeichnungen xz bezie- 
hungsweise yz. Die neue Achse xz 
kommt dabei genau auf die dreidi- 
mensionale Koordinatenachse x 
und yz genau auf z zu liegen. Der 
Sinn dieser, auf den ersten Blick et- 
was verwirrenden Operation, ist re- 
lativeinfach einzusehen. Esmuß nur 
eine Transformation des (dreidi- 
mensionalen) YWertes erfolgen. Die 
X- und Z-Koordinaten unseres drei- 
dimensionalen Körpers können wir 
einfach übernehmen. 

In Bild 5 sehen Sie, wie der YWert 
in seine X- und Z-Komponente zer- 
legt wird. Die Koordinaten des dar- 
zustellenden Punktes (P) sind dabei 
wesentlich vom Betrachtungswinkel 
abhängig. Das ist der Winkel («), un- 


za 
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kommt es an 


ter dem X- und Y-Achse in der Dar- 
stellung aufeinandertreffen. Bei 
dem kleinen Dreieck rechts unten 
handelt es sich um ein rechtwinkeli- 
ges Dreieck, so daß wir mit den 
Winkelfunktionen arbeiten dürfen. 
Die Hypothenuse ist als YWert ge- 
geben. d, der Winkel zwischen X- 
und YAchse, steht ebenfalls fest. 
Wir erhalten damit die folgenden 
XZ- beziehungsweise YZ-Werte für 
unseren Punkt: XZ = X + Y*cos« 
und YZ = Z + Y*sino. 

Im ersten Quadranten führt ein Y 
‚Wert größer als Null dazu, daß der 
darzustellende Punkt gegenüber Y 


= O nach rechts wandert. Zu den 


»normalen« zweidimensionalen 
Strecken X und Z werden jeweils die 
Winkelfunktionsterme addiert, 

Ein häufig benutzter Spezialfall er- 
gibtsich, wenn wir die Y-Achse unter 
einem Winkel von 45 Grad zeich- 
nen. In diesem Fall ist sin = cos« 
= 0,5, womit sich die Gleichungen 
von oben zuXZ = X + 0,8*Y und YZ 
= Z + 0,5*Y vereinfachen. Auch für 
andere Winkel empfiehlt es sich, 
die Sinus- beziehungsweise Cosi- 
nus-Werte vor der eigentlichen 
Koordinatenumrechnung einmalig 
zu bestimmen. Diese Werte werden 
danach in zwei Variablen (beispiels- 
weise »si« und »co«) zwischengespei- 
chert. Dann können Sie problemlos 
mit der unteren Formel weiterarbei- 
ten, wobei statt der 0,ö5inder oberen 
Gleichung »co« und in der unteren 
»si« einzusetzen ist. Das Rechnen mit 
einer Konstanten geht bedeutend 
schneller als mit den Winkelfunktio- 
nen. 

Nun wollen wir unser Wissen für 
unseren Quader benutzen. Begin- 
nen wir mit der einfachsten Variante, 
dem Gittermodell. 

Zur Abbildung genügen hier sim- 
ple DRAW-Kommandos unter- 
schiedlicher Länge und Richtung, In 
unserem Beispiel wollen wir mit ei- 
nem Winkel von 48 Grad arbeiten. 


Bild 4. Auf das Koordinatensystem 


‚Nresine 


Damit läßt sich unser Bild mit 
DRAWR sehr einfach malen. Eine 
waagrechte Linie bekommen wir, in- 
dem wir keine Änderung in der YZ- 
Richtung machen und nur eine Ver- 
schiebung um XZ vollziehen. Ana- 
log dazu, ergibt sich die senkrechte 
Linie mit konstantem XZ und verän- 
derlichem YZ. Die perspektivisch 
nach hinten laufende Linie (in Y 
Richtung) benötigt ein gleichförmi- 
ges Ändern von XZ und YZ, umden 
gewünschten Effekt zu erzielen. Nun 
bleibt nur noch die Frage offen, mit 
welcher Länge die Linien gezogen 
werden sollen. Hier ist auf eine Un- 
zulänglichkeit des Auges Rücksicht 
zu nehmen. Wir empfinden nämlich 
nach »hinten« laufende Linien als 
deutlich länger, als Begrenzungen, 
die parallel zur Betrachtungsfläche 
laufen. Während wir also die Frontli- 
nien ohne Korrekturen zeichnen 
können, müssen wir bei den nach 
hinten laufenden Seitenlinien eine 
Längenkorrektur vormehmen. Ein 
Faktor, der die Längenangabe rela- 
tiv treffend verkürzt, ist vV2 


Für Besitzer des CPC 464 gibt es 
einige Probleme, wenn die nun er- 
haltenen Flächen ausgefüllt werden 
sollen. Mit einen 664 oder 6128 ist es 
natürlich keine Schwierigkeit. Sie 
wenden einfach das FILL-Komman- 
do an. Ansonsten müssen wir uns 
hier mit einer ganzen Reihe neben- 
einandergezogener Linien behel- 
fen. Ineiner Schleife ist das kein Pro- 
blem. Man muß nurüber die gesam- 
te Breite Linie neben Linie zeichnen. 
Gleiches gilt für die Deckfläche und 
die eine (rechte) Seite. Mit diesen 
Grundgedanken arbeitet das ne- 
benstehende Programm »Quader« 
(Listing 3). 

‚Am Anfang der Routine finden Sie 
die Auswahl nach dem Darstel- 
lungsmodus. Unser Quader kann 
wahlweise als Gittermodell oder als 
Valor gezeichnet werden. 2 


Yrcosa 


Bild 5. Die Umrechnung von 3D- 
auf 2D-Koordinaten ist einfach 


Zeile 160 treffen wir zunächst auf die 
erste Variante — das Gittermodell. 
Breite, Höhe und Tiefe werden ein- 
gegeben, bevor eine Reihe von 
DRAWR-Befehlen den Quader 
zeichnet. Interessant sind dabei ins- 
besondere in Zeile 230 und 250 die 
Linien für die schräg laufenden Sei- 
tenbegrenzungen. Dadurch, daß 
die Bewegung jeweils mit identi- 
scher Verschiebung in X- und % 
Richtung erfolgt, ergibt sich der 
schräge Verlauf. Ansonsten werden 
dieselben Techniken angewandt, 
die wir schon bei den einfachen 
zweidimensionalen Figuren ken- 
nengelernt haben. Die Linien wur- 
den dabei ohne Verkürzung pro- 
grammiert, um Ihnen den Tiefenef- 
fekt zu verdeutlichen. Sie sollten für 
die praktische Arbeit nun in allen 
DRAWR-Kommandos mit identi- 
schen Verschiebungsangaben die 
Variable »t« durch »t/SQR(2)« erset- 
zen. Dann stimmen die optischen 
Proportionen wieder. 

Ab Zeile 310 finden wir die Voll- 
grafik. Zunächst wird in Zeile 370 bis 
390 die Vorderfront gezeichnet. Die 
Schleife läuft hier von 0 bis b, das 
heißt über die gesamte Breite unse- 
rer Vorderfront in ler-Schritten. Da- 
bei wird jeweils der Fußpunkt mit 
MOVE gesetzt, bevor dann mit 
DRAWFR eine Linie in Farbe 2 (rot) 
gezogen wird, Die Zeilen 410 bis 430 
bilden die Seitenfläche ab, Die Be- 
rechnung ist hier etwas schwieriger, 
der Effekt ist allerdings derselbe. 
Den Fußpunkt der unteren Begren- 
zungslinie erhalten wir, indem wir zu 
dem Punkt (b, 0) jeweils den Vektor 
(i, i) addieren und dabei i über die 
gesamte Tiefe von 0 bis t laufen las- 
sen, Als Korrektur ist t dann wieder 
durch »t/SOR(2)« zu ersetzen. Von 
diesem Fußpunkt werden nun wie- 
der Linien der Höhe h mit der Farbe 
3 (hellblau) nach oben gezogen. Die 
Deckplatte unseres Quaders wird 
dann mit Zeile 440 bis 460 gezeich- 


|Enet. Die Flächenlinien werden jetzt 
on links nach rechts gezeichnet. 
Dazu wird der Grafik-Cursoraufder 
iußeren, linken Seitenlinie gesetzt 
d dann die Fläche mit DRAWR in 
arbe 1 ausgefüllt. 
Den Abschluß unseres Pro- 
s bildet ein sogenanntes 
iges« GOTO, Diese Abfrage- 
hleife wurde eingesetzt, um zu 
erhindern, daß die erstellte Grafik 
durch ein »Ready« gestört wird. 
‘Wenden wir uns nun der zweiten 
gur zu, dem Zylinder. In diesem 
Programm (Listing 4) benutzen wir 
eine Reihe von geometrischen Figu- 
en, die wir bereits kennen. Die Re- 


de ist hier von der Ellipse, die zumin- 
dest in unserem Gittermodell recht 
schnell und einfach die obere bezie- 
hungsweise untere Grundplatte bil- 
det. Zwei weitere mit DRAW ge- 
zeichnete Linien vervollständigen 
das Bild. Etwas schwieriger wird es 
dagegen, wenn wir eine Vollgrafik 
verlangen. Hier muß zwar nur noch 
eine Ellipse dargestellt werden, 
nämlich die obere Deckplatte, dafür 
ist diese aber vollständig auszufül- 
len. Dies ist nun aber nicht möglich, 
indem wir jeweils vom Mittelpunkt 
einen Strahl auf einen Punkt der 
Randlinie senden. Bei Anwendung 
dieses Verfahrens bleiben nämlich 


Bild 6. Die Ellipse wird in vier Teilen ausgefüllt 


10 C55DC] 
20 ‘** Zylinder zeichnen ** LAGACI 
3O nn CDSE®] 
48 MODE 1 Ei1F4] 
5@ INK ®,B:INK 1,21: INK 2,6:INK 3,11 C90B8] 
&8 BORDER ® [B2281 
7@ PAPER @:PEN 1 1847A] 
88 CLS LF8D4] 
98 PEN S:PRINT"{3 BEREREZ, YLINDERt 

3 SPACEIZ EICHNEN L29DAJ 


1@® LOCATE 12, AIPRINT"Gittermodel1t2 SPA 
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einige kleine Punkte in der Deck- 
platte ohne Farbbelegqung. 

Wir wollen daher ein anderes 
Verfahren anwenden. Wenn wir da- 
von ausgehen, daß das Zentrum un- 
serer Deckplatte den Mittelpunkt 
eines Koordinatensystems bildet 
(vergleiche Bild 6), so können wir ei- 
ne gute Flächendeckung erreichen, 
indem wir von jedem Punkt unseres 
Umfangs eine Senkrechte auf die Y- 
Achse ziehen. Diese »übereinander- 
gestapelten« Linien decken dann 
die Fläche vollständig ab. 

Am Anfang des Programms fin- 
den sich die schon gewohnten Ab- 
fragen nach der Darstellungsart. 


10 ||; LABS4] GEIL)“ Tramaı 
a ade ai ebene a 118 LOCATE 12,61 PRINT"Vollgrafikt4 SPACE 
48 MODE 1 Li1F4] 
12@ z$=INKEY$:IF z$<>"1" AND z&<>"2" THE 
& INK OJBLINK 1,21. INK 2,61 INK 3,11 rang) A120 ELSE IF rsenne INEN 528 a an 
PAPER BIPEN 1 Laaraı 130 nnunnnnununnunene CAa?Eı 
En SH i9Q ssananssueeneuseen L9anzı 
1 70 FEN SeeRInT"cs spacssa uADERES SP, 188 cLS:ORIGIN 528 13ate) 
“ "Radius":a 
1: ao'Löcäre, 12CAlPRINT"Gitternodel1{2 SPA Se 180 INFur“Haehe'ih 105323 
110 LOCATE 12,8:PRINT"Voligrafikta SPACE 288 For yon Too tacıe) 
AND uzu .5#SOR (a”2-x 
|: N 22@ PLOT x,ysisPLOT x,-yEPLÖT -x,ysPLOT 
130. CASE En YaPLÖT x»yChsPLOT X=y-hepLOTt = 
149 '** Gittermodell ** [D2683 >n Eier = ,y-h 15386] 
150 [96AZI x+1,ys15PLOT x+1,-yzPLOT -x+1,y 
16@ CLS:ORIGIN 50,58 E562] PLOT x+1,y-hzPLOT x+1, 
178 INPUT"Breite":b 'DAQB. a! n+luy-hzPLOT -x+1.-v-h [64481 
188 INPUT"Hoehe":h 165321 x E111al 
199 INPUT"Tiefe"it [FBS4] Ku: 
200 cLs 185283 
21@ DRAWR b,@,1:DRAWR @,.hzDRAWR -b,@:DRA er 
WR 1B538J - 
220 MOVER b,@ CASS6] Esel 
ee a a eh ae 31@ ‘** Vollgrafik #* 'DDABI 
240 MOVer b, ® La9sal 320 'naunnunnununnee L2DF81 
25@ DRAWR t,t CABD&] Sa 180301 
249 MOVE ®,8:DRAWR t,t:DRAWR b,@:MOVER — NPUT"Radius”;a [C61E] 
b,@:DRÄWR @,h c751A1 35@ INPUT"Hoehe":h (80381 
270 GOTO 478 CC&5A] 36® ORIGIN 320,500 L8SEA1 
289 rn c 51 ® CLS 
298 '** Vollgrafik EFDB6J 
TOD 'nuunnuunuanunuen LCFFAJ 39Q x=x-5 179121 
sıa0 LBE2CI 200 xox+sılE x>2Q THEN 480 LE22C1 
320 17182] 
3:0 LES2C9 
340 L4F4EI 
E27] LA92C9 
370 keaBeı 468 s=(1+18/a)#s L6FAA1 
sea LEEAE] 470 G0TO 408 LE9581 
390 LEBFEI 488 ORIGIN 328, 3@@-h ED61A] 
220 La8F81 490 FOR x=-a TO B Ca5341 
+10 CASD2] 500 y=0.5*SQR (a”2-x"2) La62A] 
429 MOVE Bess De Drau 9.h,3 L682A] move Br 
438 NEXT LS6FEI DRAUR &,h,2 
daB FOR ia TO t CBDDBI MOVE x .-y 
450 MOVE @+i,h+izDRAWR b,@,1 ED&E2I 
460 NEXT [Sarzı 
470 IF INKEY$="" THEN 47@ ELSE RUN LAAEEI 


Listing 3. Der Einstieg in die Welt der 3D-Grafiken 
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Das Gittermodell ist relativ schnell 
beschrieben. Die Ellipsenglei- 
chung und ihre Darstellung kennen 
wir ja schon. Es werden nun nur zu- 
sätzlich zu den vier normalerweise 
in einer Ellipse gesetzten Punkten 
noch gleichzeitig vier weitere Punk- 
te für die Bodenplatte gesetzt (ein- 
fach durch Subtrahieren der Höhe 
h). Etwas außergewöhnlich ist dabei 
Zeile 230, Sie wiederholt nämlich 
denselben Vorgang noch einmal, je- 
doch mit gegenüber den in Zeile 220 
befindlichen um 1 erhöhten X-Wer- 
ten, Dies hat einen relativ einfachen 
Effekt. Unsere Ellipse wird nämlich 
noch einmal mit einer Verschiebung 
um 1 in X-Richtung gezeichnet. Die 
Umfanglinie wird doppelt so dick. 
Dasselbe Verfahren wenden wir 
dann bei den senkrechten Seitenli- 
nien an, Sie werden jeweils mit der 
notwendigen Verschiebung um den 
Radius A rechts und links doppelt 
nebeneinander gezeichnet. 

Etwas interessanter wird es, wenn 
wir unseren Zylinder als Vollgrafik 
zeichnen. Am Anfang steht wieder 
die Eingabe der zwei benötigten Pa- 
rameter für Radius und Höhe. Der 
Mittelpunkt unseres Koordinatensy- 
stems wird auf das Bildschirmzen- 
trum gesetzt (Zeile 360). Dann begin- 
nen die eigentlichen Darstellungs- 
zeilen. Wir beginnen dabei am äu- 
ßersten linken Rand unserer Figur. 
X weist den Wert -a auf — und y 
dementsprechend 0, Der Schrift- 
parameter s wird in Zeile 380 auf 
0,1 gesetzt. Erlegt fest, in welchen X- 
Schritten die Berechnung erfolgt. 
Die eigentliche Schleife läuft von 
Zeile 400 bis Zeile 470. Als erstes 
wird x jeweils um den Schriftpara- 
meter s erhöht. Beim ersten Durch- 
lauf wird allerdings durch das vor- 
herige Abziehen in Zeile 390 die Er- 
höhung wieder korrigiert. Wir ope- 
rieren zu Anfang also mit x=-a. 

Als nächstes wird abgefragt, ob x 
größer oder gleich 0 ist, Dies wird 
als Ende-Kriterium benutzt. In solch 
einem Fall haben wir nämlich den 
Mittelpunkt unserer Figur erreicht. 
Da wir alle vier Viertel unserer 


Bild 8. So können die Verhältnisse der verschiedenen 
‚Strecken bestimmt werden > 


Deckplatte parallel zeichnen las- 
sen, ist in diesem Fall die Figur voll- 
endet. Beim eigentlichen Zeichnen 
unserer Ellipsenviertel bestimmen 
wir zunächst in Zeile 410 den YWert 
mit Hilfe des Satzes des Pythagoras. 
Als Wert für die Exzentrizität unse- 
rer Ellipse wurde 0,5 eingesetzt. Es 
folgen die eigentlichen DRAW-Zei- 
len. Dabei wird der Grafik-Cursor 
immer mit X=0 auf den gerade er- 
rechneten YWert gesetzt. Dann er- 
folgt das Zeichnen der Linien bis 
zum Punkt auf der Randlinie. Zeile 
460 beinhaltet eine etwas trickrei- 
che Veränderung des Schrittpara- 
meters s. Vielleicht ist Ihnen beim 
»Spielen« mit dem ersten Ellipsen- 
programm (Listing 2) auch schon 
aufgefallen, daß der dort verwende- 
te Algorithmus nicht optimal ist. Der 
Grund dafür ist einfach. Wenn man 
vom äußersten linken Rand der Fi- 
gur ausgeht, so bewirken bereits 
kleine Änderungen von Xeineziem- 
lich große Änderung des Y-Wertes, 
Je mehr man dagegen zum Mittel- 
punkt kommt, in desto größeren 
Schritten könnte man eigentlich X 
variieren, da sich der Abstand von 
der X-Achse, das heißt der Wert für 
Y, nur noch geringfügig erhöht. 

Neben diesen grundsätzlich für 
jeden Kreis oder jede Ellipse gel- 
tenden Problem ist allerdings noch 
eine andere Tatsache zu beachten. 
Wir müssen nämlich X auch im Ver- 
hältnis zur Größe unserer Figur vari- 
ieren. All diesen Gesetzmäßigkei- 
ten trägt die schrittweise Erhöhung 
von S in Zeile 460 Rechnung. Mit je- 
dem Schritt, den wir uns dem Zen- 
trum unserer Figur nähern, erfolgt 
die Änderung in immer größeren 
Sprüngen. S wird Schritt für Schritt 
durch laufende Multiplikation im- 
mer weiter vergrößert. Der Faktor, 
mit dem $ bei jedem Schritt multipli- 
ziert wird, ist jedoch nicht fix vorge- 
geben, sondern hängt wiederum 
vom Radius ab, Je größer der Radius 
ist, desto kleiner wird dieser Erhö- 
hungsfaktor gewählt. Damit setzt der 
Übergangzu einer größeren Schritt- 
weite erst später ein. 


Der Rest zeichnet die senkrechte‘ 
Vorderfront. Der Fußpunkt unseres 
Systems wird mit ORIGIN um die! 
Höhe h verschoben. Der Rand de! 
unteren Deckplatte wird wieder 
einmal mit der Ellipsengleichung! 
bestimmt. Von dieser ausgehend, 
ziehen wir dann — gleichzeitig von. 
rechts und links auf das Zentrum zu- 
strebend — Linien der Höhe h nach 
oben. Diese treffen damit genau aı 
die Unterkante der oberen Deck: 


Deckplatte und Zylinderumfang un. 
terschiedliche Farben benutzt. Eine 
sehr schöne Zylinderausgabe er- 


Höhe 150 oder 200 eingeben. 

Man kann nun den räumlichen Ef} 
fekt noch steigern, indem man farb- 
liche Unterteilungen macht. Probie- 
ren Sie einmal eine einfache Drittel- 


820 DRAWR 0,h/3,2 
540 DRAWR 0,h/3,2 
mit den zwei neuen Zeilen 
525 DRAWR 0,2*h/3,3 
545 DRAWR 0,2*h/3,3 

Das untere Drittel der Säule bleibt‘ 
weiterhin rot. Darüber hat sich je- 
doch nun ein hellblauer Halbzylin- 
der aufgebaut. Diese Technik kann 
sehr gut benutzt werden, um dreidi- 
mensionale Diagramme darzustel- 
len. Man ist hierbei natürlich nicht 


gen und (speziell im MODE 0) auch 

mit mehreren Farben zu arbeiten. 
Ein letztes wichtiges Kapitl ist die 
Parallelprojektion. Sie muß aller- 
dings als ein Verfahren betrachtet 
werden, das zwar dem Computer 
entgegenkommt, aber sich der Be- 
trachtungsweise des Auges nicht 
ausreichend annähert. Der Haupt- 
grund liegt darin, daß bei dieser 
Projektionstechnik gleichgroße Flä- 
chen die in der Tiefe voreinander 
gelagert sind auch mit identischer 
Fortsetzung auf Seite 42 


Bild 7. So nimmt das Auge einen Quader wahr — 
allerdings et verzerrt 


RE, 


damit auch zeitaufwendige — 

Methode, Kreise auf den Bild- 
schirm zu bringen, finden Sie in Li- 
sting 1. Jeder Punkt wird zuerst ein- 
zeln berechnet und dann mit PLOT 
gesetzt. Gerade aber das Bestim- 
men der Sinus- und Cosinuswerte 
dauert lange. Deshalb sollten Sie 
mal das Programm aus Listing 2 aus- 
probieren, Sie werden verblüfft 
sein, wie schnell jetzt der Kreis ge- 
zeichnet wird. 

Die erste Routine benötigt aufdem 
Schneider volle 13 Sekunden, wäh- 
zend esmit der zweiten in nur 1,1 Se- 
kunden zu schaffen ist. Das wäre al- 
so 12mal schneller und sieht außer- 
dem noch wesentlich besser aus. 
Bei 100 Kreisen beträgt dann die Re- 
chenzeit statt 22 Minuten nur 2 Minu- 
ten. Eine recht eindrucksvolle Zeit- 
Ersparnis. 

‚Wer nun wissen möchte, wie man 
solche Routinen selbst entwirft, für 
den ist dieser Artikel gedacht. Le- 
ser, die keinen Schneider besitzen, 
können mit Hilfe der Erklärungen 
aus Tabelle | die Grafikbefehle für 
ihren eigenen Computer umsetzen. 


Ei: sehr umständliche — und 


Vieleck-Kante 


ideale Kreislinie 


Bild 1. Die ideale Kreislinie wird durch 
ein Vieleck angenähert 


Dabei ist esunumgänglich, alle Grö- 
Benangaben für die jeweilige Bild- 
schirmauflösung umzuschreiben. 
Dies ist aber durch Änderung einer 
einzigen Programmzeile immer 
sehr leicht möglich. 


"sehr schnell sein. Man muß nur wissen wie. 


chnelle Kreise 


Geben Sie zuerst Listing 3ein und 
starten Sie das Programm, das ge- 
mäß Ihrer Angabe ein regelmäßi- 
ges n-Eck auf den Bildschirm zeich- 
net. Probieren Sie einmal verschie- 
dene Werte für n aus. Sie werden 
bemerken, daß ab einer bestimm- 
ten Eckenanzahl (beim Radius 200 
ungefähr ab n=45) die Kurve sich 
optisch nicht mehr von einem Kreis 
unterscheidet. Statt unnötig viele 
Kreispunkte (wie in Listing ]) zu be- 
stimmen, braucht man also nur ein 
regelmäßiges 45-Eck zu zeichnen, 
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tan (d/2)= Gegenkathete/Ankathete 
= Vr=a-I)/ rd). 

Für sehr kleine Werte von d gilt (in 
Bogenmaß): tan d ungefähr gleich.d. 
Also ist d/2 = YrXr-d)/(r-d) oder 
umgerechnet 
2 = Yırr/(r-a)-1 

Da d ja gegenüber r sehr klein ist 
(d=0,5; Radius r aber bis zu 200), gilt 
ungefähr 


2 = YrA 


Bild 2. Mit komplexen Zahlen ist eine 
Drehung um « sehr einfach 


um ein und denselben Effekt auf 
dem Bildschirm zu erzielen. Man 
berechnet einzig sparsame 44 Punk- 
te anstatt der 360, verbindet diese 
durch Geraden und erhält seinen 
»Kreis«. 

Wie läßt sich nun, ohne lange zu 
probieren, die minimale Eckenzahl 
bestimmen? Betrachten wir dazu 
das Bild l. Um das Vieleck nicht 
mehr von einer Kreislinie unter- 
scheiden zu können, darf die Entfer- 
nung von einer Kante des Vielecks 
zur videalen Kreislinie« maximal ei- 
nen halben Bildschirmpunkt betra- 
gen. Für das schraffierte (rechtwin- 
kelige) Dreieck gilt dann: Die drei 
Seitenlängen betragen rr-d und 
(nach dem Satz des Pythagoras) 


VIA). 
Für den Winkel d gilt: 


Bild 3. Konventionell berechnet muß man 
die Sonderfälle beachten 


Da aber wie gesagt r wesentlich 
größer als 1 ist, fällt der Abzug der 
Zahl 1 vom Radius gar nicht mehr ins 
Gewicht, 

Als endgültiges Ergebnis für den 
maximalen Winkel d, bei dem sich 
ein Vieleck nicht von einem Kreis 
unterscheidet, erhalten wir den 
Wert d = 2 Yr. Die zugehörige 
Eckenzahl ist dabein = Vollkreis/d. 
Da die Rechnung wie gesagt nur im 
Bogenmaß gilt, ergibt sich für die 
kritische Eckenzahl der Wert 


n=2r/2/r=r/yr 
oder gerundet 
N = int(m* 


Für einen Radius von 199 ist das 
Resultataus dieser Rechnung genau 
der auch experimentell gefundene 
Wert 45. Allein die Anwendung die- 
ses Tricks bewirkt eine Erhöhung 
der Rechengeschwindigkeit um 
den Faktor 7. Ähnliche Betrachtun- 
gen kann man natürlich für alle mög- 
lichen Anwendungen anstellen, um 
die Geschwindigkeit zu optimieren. 
Wem das zu kompliziert ist, der 
braucht sich einfach nur die Formel 


N = int (w /r'+ }) merken. 


Die zweite Verbesserung des Pro- 
gramms wurde dadurch möglich, 
daß zur Herleitung der Formeln 


r+) 


e 
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komplexe Zahlen zu Hilfe gezogen 
wurden. Dies ist nicht nur in diesem 
Beispiel sehr nützlich, sondern es 
vereinfacht auch in vielen anderen 
Grafikanwendungen zusätzlich eine 
Erhöhung der Rechengeschwindig- 
keit. Deshalb hier eine kleine Ein- 
führung in das Rechnen mit komple- 
xen Zahlen. 

Möchte man die Lage eines Punk- 
tes P eindeutig bestimmen, so gibt 
man normalerweise seine x-und sei- 
ne y-Koordinate an (beispielsweise: 
P:=(x;y)), Bei der Darstellung mit 
komplexen Zahlen führen wirnunei- 
ne neue Schreibweise ein: Wir 
kennzeichnen die y-Koordinate mit 
dem Vorfaktor»i«und addieren dazu 
einfach die x-Koordinate: P:=X+ 
1*Y, Die Mathematiker mögen uns 
diese vereinfachte Erklärung der 
komplexen Zahlen verzeihen, aber 
für unser Problem reicht sie völlig 
aus. Steht also ab jetzt irgendwo 
»3+i*4«, wissen wir, daß damit 
schlicht und einfach ein Punkt ge- 
meint ist, der im Koordinatensystem 
3 Einheiten nach rechts und 4 Ein- 
heiten nach oben liegt. 


Was ist eine komplexe 
Zahl? 


Das Zeichen »i« ist dabei eine will- 
kürlich gewählte Bezeichnung, die 
in der realen Zahlenwelt keine Ent- 
sprechung hat. Man kann also bei- 
spielsweise nicht etwa sagen, »i hat 
den Wert 27« und überall, wo in ei- 
ner Formel das Zeichen i vorkommt, 
statt dessen 27 einsetzen. Dies funk- 
tioniert nur mit gewöhnlichen Varia- 
blen. 

Wenn man hingegen die Fläche 
eines Quadrats mit 3m Kantenlänge 
berechnen möchte, schreibt man 
einfach »3m*3m= 9m“ und spricht 
das Ergebnis als »Quadratmeter« 
aus. Wenn dieser Vorgang nicht 
schon durch jahrelange Übung ins 
Unterbewußtsein übergegangen 
wäre, würde man sich dabei denken 

»3m*3m = 3*m*3*m = 3*3*m*m= 
9*m?«. Mit Einheiten läßt sich ge- 
nauso rechnen, als ob es Platzhalter 
für später einzusetzende Zahlen wä- 
ren—nur daß mandiese Einsetzung 
nicht willkürlich durchführen darf. 

Ebenso verhält es sich mit dem 
Zeichen »i«. Quadriert gibt es als Er- 
gebnis - (i?= -]). Für den Anfang 
mag diese Art zu Rechnen noch un- 
gewohnt erscheinen, mit der Zeit 
wird es aber genauso geläufig wie 
der Ausdruck »Meter hoch 2« oder 
»Quadratmeter« als Ergebnis von 
zwei miteinander multiplizierten 


Längen. 


Mathematisch korrekt bezeichnet 
man »i« als »imaginäre Einheit«, und 
ein Ausdruck »A + i*B« wird als kom- 
plexe Zahl bezeichnet. 


Rechnen mit komplexen 
Zahlen 


Jetzt stellt sich natürlich die Frage, 
was nützt diese neue Schreibweise? 
Stellen Sie sich vor, Sie haben einen 
Punkt an der Stelle (X:Y) und wollen 
wissen, wo er sich befindet, wenn 
Sie ihn um 3 Einheiten nach rechts 
und um 4 Einheiten nach oben ver- 
schieben. Mit komplexen Zahlen ist 
die Berechnung sehr einfach: Man 
addiert die komplexe Schreibweise 
des Punktes (X;Y) zur komplexen 
Schreibweise des Punktes (3;4). 
K+rY)+@+i*4) 
=X+i*Y+3+i*4 
=X+3+i*Y+i*4 
=(X+3)+i*(Y+4) 

Der neue Punkt liegt also an der 
Position (X+3Y+4). 

In einem Programm erscheint 
dann nur noch das Endergebnis 
»PLOT X+3,Y+4«. 

Richtig interessant wird es aber 
erst mit einer besonderen komple- 
xen Zahl (oder besser Formel), der 
»Eulerschen Zahl« E(a)=cos(a)+ 
i*sin(a). Multipliziert man diese Zahl 
E(«) mit, einer anderen komplexen 
Zahl (X+i*Y), entspricht das Ergeb- 
nis einem Punkt, der zum Punkt 
(X+i*Y) genau um den Winkel d um 
den Ursprung gedreht ist (Bild 2). 

Ein Beispiel: Wir multiplizieren 
die komplexe Schreibweise des 
Punktes (2;2) mit der komplexen 
Zahl E(45). (45 in normalen Winkel- 
graden, das heißt ein Vollkreis hat 
360 Grad.) Dann gilt: (2+1*2)*E(45) 
(2+1*2)*(cos(45) + i*sin(45)). = 2*cos 

(45) + 1*2*sin(45)+ i*2*cos(45)+ 
12*2*sin(48) 

Mit i?= -1 (Definition von i) kann 
man unsere Formel umschreiben: 
»i®*2*sin(45)« wird durch »-1)*2*sin 
(45)« oder »-2*sin(45)« ersetzt: 

2*cos(45)+i*2*sin(45)+ 1*2*cos(45) 
-2*sin(45) = (2*cos(45)-2*sin(45))+ 
ix(2*sin(45) + 2*cos(48)) 

Das Ganze ausgerechnet gibt als 
Ergebnis: 


0+i*2 Y2'= 0+i*2,82. 


- Vollziehen wir das Ganze in einer 
»konventionellen«e Rechnung nach: 
Der Ausgangspunkt (2;2) liegt auf 
der Winkelhalbierenden des |. 
Quadranten und damit in einem 
Winkel von 45 Grad zur x-Achse. Ei- 
ne Drehung um 45 Grad versetzt ihn 
genau auf die y-Achse. Am Anfang 
war er nacl Satz von Pythago- 


ras /2?+2?' = /8'= 2 /2'Einheiten 
vom Ursprung entfernt, was natür- 
lich auch für die Endposition gilt. Als 
Koordinaten der Endposition des 
Punktes erhält man also genau den- 
selben Wert, den wir auch durch 
komplexe Rechnung ermittelt haben 
(0;2 /2). Das ist kein Zufall, sondern 
gilt für jeden beliebigen Punkt. In 
diesem speziellen Beispiel bringt 
die komplexe Rechnung keine gro- 
ßen Vorteile. 

Das liegt daran, daß unser Bei- 
spiel sehr einfach ist. Für beliebige 
Punkte erspart die komplexe Rech- 
nung sehr viel Aufwand. Verglei- 
chen wir einmal beide Wege, um 
den Punkt (X,Y) um den Winkel d zu 
drehen: 

a) allgemeine »konventionelle« 
Rechnung: (Bild 3) 
1. Schritt 

Der Punkt P=(XY) schließt mit 
der x-Achse den Winkel ß=artan 
(y/x) ein. 

2. Schritt 

Beachtung von Sonderfällen: 

— Der Arcustangens von (y/x)liefert 
denselben Wert wie der Arcustan- 
gens von (-y/-x), obwohl der Punkt -x, 
-y ganz woanders liegt. Ist die x-Ko- 
ordinate also negativ, muß man zu ß 
noch 180 Grad addieren. 

— Ist die x-Koordinate 0, ist der Ar- 
custangens nicht definiert. Die Fälle 
ß8=90 Grad und 8=270 Grad müs- 
sen also gesondert betrachtet wer- 
den. 


3. Schritt 

Der Punkt P=(X‘Y) hat vo = 
sprung den Abstand r= Yx?+y? 
(Satz von Pythagoras). 
4. Schritt 

Jetzt die eigentliche Rotation für 
P'=&'Y) 
X =r*cos(ß + a)Y'=r*sin(ß+.a), 
wobei « der Drehwinkel ist. 
5. Schritt 

Zusammenfassung in einer kur- 
zen Routine (Listing 4). 
b) Rechnung mit komplexen Zahlen 
1. Schritt 
X'=X*cos(a)-Y*sin(a) 
Y'=X*sin(a)+Y*cos(e) 

Es gibt keine Sonderfälle und nur 
einen Winkel. 
2. Schritt 

Zusammenfassung in einer kur- 
zen Routine (Listing 5). Da ja die alte 
x-Koordinate bei der Berechnung 
der y-Koordinate noch einmal benö- 
tigt wird, muß zur Zwischenspeiche- 
rung allerdings eine Hilfsvariable T 
verwendet werden. 

Selbst wen die Erklärungen zur 
komplexen Rechnung nicht interes- 
siert haben, der sollte zumindest die 


eben genannten Formeln und ihre 


Anwendung im Kopf behalten. 
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"Kreisschlecht (abschreckendes Beispi 10 "Rotation (konventionell) LDFA21 
el) LIACEI 20 DEG:ORIGIN 328,200 LBBBEI 
DEG 'Winkelmodus 36@ Grad pro Vollkrei 30 ‘Daten der Figur einlesen CDDe@2] 
s 1965C1 40 n%=9 13814] 
r=199:mı=320:my=20® Radius, Ursprung LBBECI 580 DIM x (n%) „y(n%) LaAcBı 
CLS LDACC] &0 FOR i%=1 TO n%zREAD x(i%) ,y(iz) NEXT [8692] 
FOR i=® TO 368 LABBCI 7@ DATA -58,-50,-50,50,8,75,58,50,50,-50 
PLOT mx+r#SIN Gi) ‚my+r#COS (1) LF45A] ,-50,-58,50,50,-58,50,50,-58 LF@@21 
CB9ECI 80 'Rotieren und Zeichnen [50641 
20 weis [A346] 
20 CLS [7126] 
ing‘. So sollte man Kreise nicht PLOTen 110 PLOT x n%) ‚yin%) CBBECI 
120 FOR i%=1 TO n% [B858] 
150 DRAW KR ym ESCBAI 
‘Kreisgut (daf)r aber komplizierter) LDIDB1 148. Rotation ainaa  Funktas BAD#I 
g 150 IF x(i%)=@ AND yti%)>=® THEN b=9@ LBF&CH 
DEG’Winkelmodus S6@ Grad pro Vallkrei 181 IE KaRSO AD Yunla mienioraa L2ansl 
99: mx=320:my=200 Radius, Ursprung  L[BBECI 15 ni N bei BAEHLLSELR “ 
R=INT (PISSOR(r}+1) sn=SIN(360/n?)essc 153 IE mtRISa THEN beATN(YAR/MRDIH 
ER AR EO REGEN ee 154 r=SOR(yCiR)ayizd+n (indem id) ) CES1A1 
xarsy=@:MOVE mi+r ‚my'Startwerte LF99A] 155 (1%) er#C0S (btw) ıy(i%)=r#SIN(b+w) LA79E1 
FOR i%=1 TOn C19B41 160 NEXT L75EC] 
t=cs#x-Sn#y: yasnıxtestyın=t [SEB61 170 GOTO 188 CEE441 
DRAW mx +x ‚my+y 13028] 
BEXT C59@1 | Listing 7. Rotation: Einfach zu verstehen, aber langsam 
2. Kreise schnell gezeichnet 
ß 12 "Schachtel -Quadrate 184361 
2@ DEG:ORIGIN 320,208 EBBBEI 
3 y 30 Parameter: Radius,Winkel ‚Faktor ‚Anza 
Eckexperiment LC6FB] hı LF&BBI 
DES, LA7A41 48 r=199:w=5:#=0.92:n=37 L79DC1 
r=199:mx=320: my=200 LA36A] 58 cs=f#L0S (w) ısn=f#SIN(W) C4SDE] 
INPUT"Eckenzahl";e Lc71Al &0 xerayer [S21E1 
w=36B/e EDSCCI 70 cıs LEFD2I 
ELS LE2D®] 88 FOR i%=-1 TOn CF7BB] 
PLOT mx+r my [38F4] 9@ PLOT x,y LES@A] 
FOR i=w TO 361 STEP w LF&38] 109 DRAW [BF921 
DRAW mx +r#COS (i ) „my+r#SIN(i) LF6SEI 110 DRAW EBFEEI 
108 NEXT [71E0] 120 DRAW y,-x LAC961 
118 GOTO 48 [9SDE] 138 DRAW x,y [393€] 
140 tex#cs-yasn: yarksntyacsın=t L6E121 
Listing 3. Ein Experiment mit Ecken N seyenn 
Listing 8. Mit einer Drehstreckung stei wir ein 
g 
12 ‘Lageberechnung (konventionell) [A376] 
“nicht zur Nachahmung empfohlen [70781 = 
DES LC2A63 18 ‘Kreis-Experimente L2FB21 
INPUT "Ausgangslage-x-Koordinate";x L7F7EI 2@ DEG:ORIGIN 328,288 4 [BBBEI 
INPUT "Ausgangslage-y-Koordinate" [31841 3@ PRINT"Durch Komma getrennt Radius,Sch 
INPUT"Drehwinkel "zw [96323 rittweite,Faktor und Anzahl eingeben" 
IF x=@ AND y<=® THEN b=27@ [S1EE] 5 L@4Dc] 
IF x=@ AND y>@ THEN b=98 L1E1A] 40 INPUT "Eingabe: "ir w,f,n [2DB2] 
IF x>@ THEN b=ATN(y/x) [2900] 5@ cs=F*COS (m) zsn=f#SIN (m) LASDEI 
190 IF x<@ THEN b=ATN(y/x)+188 [8704] 68 CLS LE2D9] 
11Q 7=SOR (xaxtyay) CBE121 78 x=r:y=@PLOT xıy CE7881 
120 x=r*CO0S (w+b) ıy=r#SIN (w+b) C4A12] 80 FOR i Ton LF7B8] 
13@ PRINT"Ergebnispunktz"x","y 14482] IB t=x*cs-y#sn: yarksntyscsıxn=t [BEBAI 
140 GOTO 48 LFBEA] 100 DRAW x,y [33381 
11@ NEXT [55E21 
12@ LOCATE 1,24: PRINT"Radius"r,"Schrittw 
Listing 4. Die Lageberechnung dauert Zeit... eite Faktor"f,"Anzahl"n CDF24] 
130 PRINT"Weiter? - eine Taste dr)cken" L72EE] 
140 q$=INKEY$:IF q$="" THEN GOTO 148 [DABEI 
"Lageberechnung (komplex) [91661 1a EOTONE EERERT 
‘So geht's besser [2862] 
DEG LC2A61 Listing 9. Experimente mit dem »komplexen« Kreis 
INPUT"Ausgangslage-x-Koordinate";x L7F7EI 
INPUT“Ausgangslage-y-Koordinate";jy  L3184] 
INPUT"Drehwinkel "zw 196323 
78 t=x#COS (w) -y#SIN (m) ayx#SIN(w) +y#CDS ( 
wan=t 129561 
1359 PRINT"Ergebnispunkt=" [44821 
140 G0TO 48 LFGEAI 
Listing 5. ...oder auch nicht 
“Rotation (komplex) 14392] 
DEG: ORIGIN 320,200 [BABEI 
"Daten der Figur einlesen CDD@23 
n%=9 [381A] 
DIM x (n%) „y{n%) LAAcB] 
FOR i%=1 TO n%:READ »(i%) „y(iz) NEXT [8692] 
DATA -59,-50,-50,50,8,75,58,58,50,-5@ 
‚-58,-50, 50,50, -50,58,50,-56 LFa@2] 
Rotieren und Zeichnen [50641 i 
w=15: sn=SIN (w) 1cs=C0S (m) LEI4EI 3 B N 
CLS 171261 » 
PLOT x (n%) „y(n%) LaBECc] 
FOR i%=1_ TO n% [88581 
DRAW x (1%) „yli%) L9CBAJ 
“Rotation eines Punktes EBAD4I 
t=x (1%) *cs-y (1%) *snıy(ik)=n tif)ksnty 
(iR)acsıx iA) =t c13881 
NEXT [75EC1 
SOTO 198 [EE44] z - 
ee) 


a 
Listing 9 erzeugt diese und andere Grafiken 


Tabelle 1. Eingabevorschläge für Listing 9 


PLOT xy: Zeichnet den Punkt (x;y) 
und setzt den Grafikcursor 
an die Stelle (x;y) 

Setzt den Grafikcursor an 
die angegebene Position 
Zieht eine Linie von der 
Grafikcursorposition an die 
Position (x,y) und setzt den 
Cursor an diese Position. 

Setzt den Koordinatenur- 
sprung an die angegebe- 
ne Position. Gibt es diesen 
Befehl nicht, muß bei je- 
dem PLOT, MOVE und 
DRAW-Befehl x0 zur 
x-Koordinate und y0 zur 
y-Koordinate addiert 
werden 

Setzt den Textcursor an 

die angegebene Position 


MOVE xy: 
DRAW xy: 


ORIGIN 
x0y0: 


LOCATE 


Tabelle 2. Die Grafik-Befehle des 
Schneider im Überblick 


Eine Anwendung zu den gewon- 
nenen Erkenntnissen siehtmaninLi- 
sting 2: Die neuen Formeln gelten ja 
für jeden beliebigen Punkt in der 
Ebene. Speziell im Kreis braucht 
man also nicht immer den Aus- 
gangspunkt in die Gleichung einzu- 
setzen, sondern kann genauso gut 
den jeweils letzten berechneten 
Punkt verwenden. Durch diesen 
Trick erhält man einen weiteren Vor- 
teil: Die Dehnung pro Schritt ist ja 
konstant, und genau diese Schritt- 
weite müssen wir in die Gleichung 
einsetzen. Die Sinus- und Cosinus- 
werte sind also im ganzen Kreis kon- 
stant, so daß man die Berechnung 
aus der Schleife herausziehen und 
innerhalb mit Konstanten arbeiten 
kann. Allein durch diesen Trick be- 
schleunigt sich die Verarbeitung ge- 
genüber dem »abschreckenden 
Beispiel« in Listing 1 um den Faktor 
2. Dabei werden die neuen Routinen 
noch gar nicht richtig ausgenutzt. 
AuchimListing 1 müssen der Radius 
und der aktuelle Winkel nicht be- 
rechnet werden, sondern werden ja 
durch die Schleife schon vorgege- 
ben. 

Diese Berechnung wird aber un- 
umgänglich, wenn man beispiels- 
weise eine beliebige Figur rotieren 
lassen möchte. Die Punkte liegen 
dann nicht mehr schön geordnet 
vor, sondern können irgendwo auf 


dem Bildschirm verteilt sein. In die- 
sem Fall muß bei konventioneller 
Rechnung der Radius und der Ar- 
custangens wirklich berechnet wer- 
den. Hierzeigen die neuen Routinen 
richtig, was sie können. Obwohl sich 
das Listing 6 vom Listing Znurinden 
fünf Zeilen mit den aus konventionel- 
ler/komplexer Rechnung erhalte- 
nen Gleichungen unterscheidet, ist 
das Programm aus Listing 6 dreimal 
schneller als das aus Listing 7. 


Muftiplikation mit einer 
Konstanten 


‘Was in unserer Betrachtung noch 
fehlt, ist die Multiplikation einer 
komplexen Zahl mit einer Konstan- 
ten. Der Winkel zwischen dem 
Punkt und der x-Achse bleibt dabei 
fest, der Punkt entfernt sich nur et- 
was vom Ursprung. Eingefügt in die 
Kreisroutine würde sich also eine 
Spirale ergeben. Statt 


A*X +1*Y)*(cos(e)+i*sin(a)) kann 
man dann natürlich genauso gut 
K+i*Yy*A*(cos(a) + i*sin(a)) 
schreiben oder gleich 
K+i*Y)*Axcos(e) + i*A*sin(a)). 


Die Multiplikation wird also gleich 
in die Sinus- und Cosinusberech- 
nung mit einbezogen und soausder 
Schleife entfernt. Die Eulersche For- 
mel entartet hier zu einer Dreh- 
streckung. Von dieser Möglichkeit 
macht das kleine Demoprogramm 
in Listing 8 Gebrauch, das ineinan- 
dergeschachtelte Quadrate zeigt. 
Außerdem werden hier nicht alle 
vier Punkte des Quadrats berech- 
net, sondern jeweils nur einer, wo- 
bei sich die anderen durch Punkt- 
und Achsenspiegelung ergeben. 
Experimentieren Sie doch einmal 
mit den Parametern in der Zeile 40, 
indem Sie zum Beispiel 
»r=199:w=5:f=0,97:n=100« 
einsetzen. 

Für den Praktiker zum Schluß 
noch die valles in einem«-Routine (Li- 
sting 9). Hier wählen Sie die Parame- 
ter»Anzahl der Schritte«, »Schrittwei- 
te«, »Streckfaktor« und »Änfangsra- 
dius« frei aus. Obwohl es dabei nicht 
sehr viele Variationen zu geben 
scheint, kann die Routine ohne Än- 
derung doch alles Mögliche zeich- 
nen: Von Kreisen über regelmäßige 
Vielecke, Spiralen, Sterne, sich auf- 
blähende Sterne und so weiter. Ver- 
suchen Sie es einfach einmal mit 
den Parametern aus Tabelle 1. 


(Helmut Tischer) 


TEE 


Fortsetzung von Seite 38 


Länge gezeichnet werden. Der 
Mensch nimmt jedoch weiter eni 
femtliegende Gegenstände kleiner 
wahr. In weiter Ferne schrumpfen 
alle Körper bei dieser Betracl 
tungsweise auf Null. Wir haben die 
Grenzen der Auflösungsfähigkeit 
des Auges erreicht. Der Punkt, a 
den sich das Auge dabei konzen: 
triert, wird als Fluchtpunkt bezeich: 
net. Bild 7 zeigt, wie sich dieser Zu: 
sammenhang in »überspitzter« Form 
für unseren Quader darstellt. Dei 
normalerweise ist das Verhält 
von Abstand zum Fluchtpunkt zuf 
Körperseitenlänge günstiger, so 
daß die Flächen weniger asymme: 
trisch verlaufen. Trotzdem wirkt si 
dieser Zusammenhang immer aus. 
Wenn Sie sich den Quader etwasnä- 
her betrachten, so haben auch 
wahrscheinlich das Gefühl, daß 
Hinterflächen länger sind als 
vorderen. Hier sollte man also auf} 
Abhilfe sinnen. Um eine korrekte, 
das heißt dem Auge entsprechende 
Abbildung zu erhalten, müßte man 
allerdings auf die Zentralprojektion! 
zurückgreifen. 

Zunächst verzichten wir auf deı 
asymmetrischen Verlauf der Seiten. 
linien und beschränken uns auf eine? 
symmetrische Korrektur (Bild 8). 
Wir müssen dazu nur die Winkel un- 
serer Seitenlinien etwas mehr auf? 
den Fluchtpunkt orientieren. Statt 
zweier Linien, die um 48 Grad nach 
oben laufen, sollte also die obere 
geringfügig abgesenkt werden, die 
untere etwas stärker angehoben 
verlaufen. Die hintere Seitenwand 
wird dadurch etwas kleiner. Die 
Oberkante der Rückwand unseres 
Quaders ist ebenso zu verkürzen 
und damit werden die Seitenlinien 
nun auch in dieser Richtung etwas 
auf den Zentralstrahl hingezogen. 
Die optisch exakten Werte können 
Sie dabei — speziell bei einfachen 
Körpern — am besten durch Aus- 
probieren bestimmen. Wem dieses 
Verfahren nicht liegt, der kann sich 
natürlich auch zu einer mathema- 
tisch exakten Form durchringen. Die 
Bedingungen der Strahlensätze 
sind erfüllt. Somit gilt: /c=(a+b)/d. 
Nun müssen Sie nur noch die Entfer- 
nung zum Fluchtpunkt festlegen 
(a+b) und natürlich die Körperlän- 
ge b. Sie können dann bei gegebe- 
nen d den Wert von c problemlos 
bestimmen. Diese Berechnung muß 
natürlich in beiden Achsenrichtun- 
gen erfolgen, wobei man bei einem 
Würfel (einem Spezialfall) natürlich 
immer mit demselben Korrekturfak- 
tor arbeiten kann. 

(Carsten Straush) 
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Reihe anderer Heimcomputer 
auch — einen umgebauten 
Kassettenrecorder als Datenspei- 
Cher. Schließlich sind diese in Mas- 
senproduktion hergestellten Geräte 
sehr billig. Dasie aber ursprünglich 
nicht für die Datenspeicherung ent- 
wickelt wurden, ergeben sich bei 
‚der Anwendung öfters Probleme. 
Ein scheinbarer Fehler äußert 
Sich darin, daß nach der Aufforde- 
zung die PLAYTaste zu drücken 
nichts passiert. Häufig liegt der Feh- 
ler bei Ihnen. Wenn Sie die PLAY- 
Taste schon vorab gedrückt haben, 
betätigen Sie nach »LOAD "Pro- 
grammname'« schnell zweimal hin- 
tereinander dieENTER-Taste, da die 
PLAYTaste ja gedrückt ist. 

Nun ist das Speichern von Daten 
beim Schneider aber eine relativ 
komplizierte Angelegenheit. Esläuft 
&n zwei Stufen ab. Zuerst wird an der 
Speicherobergrenze 4 KByte Platz 
zeserviert. Dieser reicht, um eine 
Ausgabe- und eine Eingabedatei 
gleichzeitig offen zu halten. Die Da- 
en werden nämlich in Blöcken zu 2 
KByte auf Band geschrieben. Um 
diesen Bereich anzulegen, muß 
nach dem Ladebefehl der Speicher 
umorganisiert werden. Dies kann — 
Speziell, wenn der Speicher mit grö- 
Beren Stringarrays gefüllt ist — eini- 
ge Zeit dauern. Während dieser 
Zeit macht der Computer nichts an- 
deres, auch die Tastatur wird nicht 
abgefragt. Er bekommt das zweite 
Enter nicht mit. Mit Ungeduld 
kommt man hier nicht weiter, Die 
einzige Möglichkeit, dies zu vermei- 
den, ist ein vorangestelltes Ausrufe- 
zeichen »« im Ladebefehl. Bei 
LOAD "!Programmname'k unter- 
drückt der Schneider nämlich alle 
Kommentare und damit auch die 
Aufforderung zur Quittierung. 

Ein anderes Problem tritt meist 
erst nach einiger Zeit auf — klem- 


D er CPC 64 benutzt — wie eine 


|Recorder streikt 


Wie ein Ungetüm aus grauer Com- 
putersteinzeit residiert der Daten- 
recorder im Bauch des CPC 464. 
Wie er funktioniert und was man 
tun kann, wenn er nicht einwandfrei funk- 
tioniert, das lesen Sie hier. 


mende Kassetten, Es gibt wohlkaum 
eine Anwendung für Kassetten, wo 
diese so oft hin und her gespult wer- 
den, wie bei der Computerei. Eine 
Datei wird geSAVEt und mit »CAT« 
geprüft. Dann wird eine andere Stel- 
le aufdem Band gesucht, um ein an- 
deres Programm zu laden. Diese 
»Bandschieberei« führt dazu, daß 
die einzelnen Windungen auf der 
Spule gegeneinander leicht ver- 
schoben werden, während bei kon- 
tinuierlich in einer Richtung laufen- 
den Bändern Umdrehung für Um- 
drehung ordentlich eine Schicht auf 
die nächste gespult wird. Der Effekt 
ist, daß die Kassette klemmt. Oft 
reicht aber schon das einfache Her- 
ausziehen und Wiedereinschieben 
der Kassette, um das Band wieder 
zum Laufen zu bringen. In beson- 
ders hartnäckigen Fällen muß man 
die Kassette einmal kurz mit der Un- 
terkante aufden Tisch schlagen. Da- 
durch werden die Bandwicklungen 
enger zusammengeschoben und 
das Band läuft wieder besser. 
Schwieriger wird es, wenn wir es 
nicht mit solch einfachen Fehlern, 
sondern mit wirklichen Lese- bezie- 
hungsweise Schreibfehlern zu tun 
haben. Beispielsweise wenn das 
Band zwar läuft, aber durch Fehler 
beim Schreiben oder Lesen perma- 
nent »Read-Error«s auftreten. Dies 
kann wiederum verschiedene 
Gründe haben. Zum einen setzen 
sich im Laufe der Zeit auf dem Ton- 
kopf und auch auf dem Band kleine 
Staubteilchen fest. Diese stören den 
Kontakt zwischen Band und Ton- 
kopf. Dadurch nimmt die Lautstärke 
und auch die Deutlichkeit der als 
Töne gespeicherten Daten ab. Man 
kann dies sogar hören. Einfach den 
Lautstärkeregler voll aufdrehen, die 
Datenmusik klingt ein wenig dumpf. 
Im Handel erhältliche Reinigungs- 
bänder für Hifi-Kassettenrecorder 
oder etwas Alkohol helfen hier. Um 


Grundlagen 


den Tonkopf zu reinigen, taucht man 
ein Wattestäbchen in Alkohol und 
säubert damit die Oberfläche. Da- 
bei darf das Wattestäbchen nicht 
fusseln. Denn dies würde gerade 
dem Zweck der Aktion zuwiderlau- 
fen. Und noch eins muß beachtet 
werden. Sie dürfen den Tonkopf nie 
mit einern metallischen Gegenstand 
berühren. 

Ein zweiter Grund für solche 
Schreib-/Lesefehler kann darin be- 
stehen, daß der Tonkopf nicht mehr 
richtig justiert ist. Dies ist ziemlich 
häufig der Fall und rührt daher, daß 
der Tonkopf nur durch eine einzige 
Schraube auf Position gehalten wird. 
Diese verdreht sich im Laufe der 
Zeit, wodurch der Tonkopf abge- 
senkt oder angehoben wird. Das 
Fachwort dafür ist »Azimuth-Fehler«. 
Der Spalt des Tonkopfs steht dann 
nicht ganz senkrecht zum Magnet- 
feld (Bild 1), Man kann die Tonkopf- 
stellung natürlich korrigieren. Dazu 
benötigen Sie einen Uhrmacher- 
schraubenzieher Nummer 2 oder 
Nummer 3. Diesen erhalten Sie in je- 
dem Elektronikfachgeschäft und 
auch mancher Werkzeughändler 
führt ihn. Es handelt sich dabei um 
einen relativ kleinen Schraubenzie- 
her, der mit dem Schaft durch den 
Schlitz vor dem Kassettenfach des 
Datarecorders passen muß. 


falsche Spalteinstellung 
(Azimuthfehler) 


Bild 1. Der Tonkopf muß senkrecht zum 
Magnetfeld stehen 


Entfernen Sie nun zuerst die Kas- 
sette aus dem Laufwerk und lassen 
Sie im folgenden den Deckel geöff- 
net. Wenn man die PLAYTaste 
drückt, schiebt sich aus dem Be- 
reich der Tastatur die Mechanik mit 
dem Tonkopf nach vorne. In der Mit- 
tesehenSie einen silbernen Würfel, 
den Tonkopf. Links daneben befin- 
det sich ein anderer weißlicher klei- 
ner Würfel, Das ist der Löschkopf. 
Auf der linken Seite des Tonkopfes 
(silbriger Würfel) befindet sich eine 
kleine Schraube. Sie können diese 
durch denSchlitzin der Abdeckung 
des Kassettenrecorders auch bei 
laufendem Gerät erreichen, Zu- 
nächst drehen Sie diese Schraube 
ganz hinein, das heißt im Uhrzeiger- 
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Grundlagen 
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sinn bis zum Anschlag. Nun legen 
Sie ein fertig gekauftes bespieltes 
Band ein und spulen so lange vor, 
bis gerade die ersten Töne eines 
Programms ertönen, Der Lautstär- 
kenregler an der rechten Seite des 
Gehäuses sollte dabei auf Maxi- 
mum stehen. Während diese Töne 
hörbar sind, drehen Sie die Schrau- 
be solange gegen den Uhrzeiger- 
sinn wieder heraus, bis die Lautstär- 
ke ein Maximum erreicht. Norma- 
lerweise sind das zwei bis drei volle 
Umdrehungen. Nachdem Sie die 
Qualität Ihrer Einstellung mit eini- 
gen Kassetten überprüft haben 
(möglichst die Problemfälle testen), 
können Sie die Schraube mit Nagel- 
lack oder ähnlichem gegen Verdre- 
hen sichern. 

Eine andere Fehlerquelle können 
sogenannte »Drop outs« sein. Drop 
outs sind Stellen in der Magnetspur 
des Bandes, die sich nicht magneti- 
sieren lassen. Der Ton wird an die- 
ser Stelle unterbrochen. Dadurch 
verschwindet dashier gespeicherte 
Bit und der Computer meldet »Read 
error b«. Bei einem echten Drop out 
ist guter Rat teuer, Dieses Problem 
taucht allerdings oft auch bei ver- 
stelltem Tonkopf auf. Will man die 
Einstellung allerdings wie oben be- 
schrieben mit Hilfe von »CAT« und 
dem Anfangston korrekt einstellen, 


so bekommt man Ärger mit dem Be- 


Bild 2. Regel wider der Mathematik: 
Die 1 ist doppelt so groß wie die O 


triebssystem. Während beim Auf- 
treten von»Read error a« (dieser gibt 
an, daß ein gelesenes Bit entweder 
zu kurz oder zu lang gespeichert ist 
und damit nicht eindeutig als 0 oder 
l identifiziert werden kann) jeder- 
zeit die Test-Kassette zurückgespult 
werden kann, um denselben Vor- 
spann wieder zu benutzen, hängt 
sich der CPC bei einmaligem Auf- 
treten von »Read error b« schon auf. 
Auch bei erfolgreicher Korrektur 
bringtein einfaches Rückspulen kei- 
ne Erfolgsmeldung. Nach »Read er- 
ror b« muß der Ladevorgang immer 
mit der Escape-Taste abgebrochen 
und neu gestartet werden. 
Interessant ist noch eine andere 
Art von Fehlern, die auch bei teure- 


ren Kassetten auftreten. Manche 
Bandsorten scheinen die Auf- 
sprechfrequenz des Schneider 
nicht zu mögen. Jedenfalls produzie- 
ren sie bei »SPEED WRITE I« lau- 
fend Fehlermeldungen. Das Interes- 
sante dabei ist, daß man durch Wahl 
einer höheren Schreibgeschwindig- 
keit diese Bänder zum perfekten 
Funktionieren bringen kann. 

Zum Ändern der Schreibge- 
schwindigkeit existiert eine einfach 
zu bedienende Routine im Betriebs- 
system des Computers: CAS SET 
SPEED. Beim Anruf dieser Routine 
muß das Registerpaar HL die Länge 
für ein halbes Null-Bit (in Mikrose- 
kunden) enthalten. Der Akkumula- 
tor A nimmt einen weiteren Parame- 
ter auf, die Vorprüflänge, Hier muß 
einiges zur Datenspeicherung ge- 
sagt werden. Jedem Bit im Speicher 
des Computers wird beim Aufzeich- 
nen eine Rechteckschwingung zu- 
geordnet. Bei einem Null-Bit ist die 
Periode halb so lang wie bei einem 
Eins-Bit. Bild 2 zeigt den Zusammen- 
hang. Am AnfangjedesBits steht ein 
»High-Teil« von der in HL gespei- 
cherten Länge. Danach wird diesel- 
be Zeitspanne noch einmal mit Low- 
Pegel geschrieben. In Bild 2 ist Bit 
1=0. Es folgt als nächstes ein Eins- 
Bit. Das Speicherformat ist das glei- 
che, jedoch doppelt so lang. 

Bei dieser Art der Datenaufzeich- 


CALL 40000 


Tao GOTO 4 


MEMORY 39999 

DATA 21,59,00,3E,907,CD,68,BC,09,X 
i=40800 TO 41008 
IEN POKE i,VAL("&"+a$) NEXT 


Dieses besteht aus vier Maschi 
nencode-Befehlen, die am Anfanı 


aufden Wert 59hex (dezimal 89) und! 
mit dem nachfolgenden 3E hex (LD’ 
A)den Akkumulator auf die Vorprüf- 
länge 7. Zum Schluß wird CAS SET 
SPEED aufgerufen und die neue 
Geschwindigkeit gesetzt, Mit den 
hier gewählten Parametern verdop- 
pelt sich die Geschwindigkeit ge- 
genüber der gewohnten »SPEED. 
WRITE I«. Man erreicht knapp 4000' 
Baud. Um Ihnen die Möglichkeit zu 
geben, selbst die Geschwindigkeit 
noch individueller zu wählen, sind 
ein paar Programmzeilen angefügt. 
In ihnen können Sie einfach Werte 
für HL und A angeben, die dann au- 
tomatisch gesetzt werden. Haben 
Sie Ihre endgültige Wahl getroffen, 
so brauchen Sie nur noch die DATA- 
Zeilen ändern und können bis auf 
die ersten vier Zeilen alles löschen. 
Statt der 59 hex setzen Sie den Wert 
ein, den Sie durch »PRINT HEX$ 
(40001)« ausgegeben bekommen. 
Dieselbe Operation für die Spei- 
cherstelle 40002 durchgeführt, lie- 
fert den Wert, der für die 00 hex an 
Stelle des dritten DATA$-Werts ein- 
zusetzen ist. »PRINT HEX$ (40004) 
gibt schließlich noch die Angabe, 


:READ as: IF asc>" 


INPUT"HL in Mikrosekunden"shl 
INPUT"Vorprueflaenge A";a 

POKE: 40001 „VAL ("&"+MID$ (HEX$ (hl ,4) ,3) 
Poke 40002 , VAL ("&"+LEFT$CHEX#(h1,4) ,2 


» 
0 POKE 40004,a 
2 


CB7BA] 
ED4DC1 


Listing 1. So wird Ihr Kassettenrecorder superschnell 


nung taucht nun aber ein Fehler auf. 
Einige Bausteine des Kassettenre- 
corders haben die Tendenz, die 
Flanken (Übergänge von High nach 
Low und umgekehrt) auszugleichen. 
Ein Eins-Bit wird beim Lesen da- 
durch weniger lang empfangen, ein 
Null-Bit dagegen länger. Als Korrek- 
turfaktor dient da die Vorprüflänge. 
Diese Konstante wird zur Eins- 
Periode addiert und von der Null- 
Periode abgezogen. Beim Lesen er- 
geben sich optimierte Werte, Nun 
wollen Sie aber sicher überprüfen, 
wie man mit diesem Wissen die 
Schreibgeschwindigkeit ändern 
kann. Dazu benutzt man am einfach- 
sten ein kleines Hilfsprogramm (Li- 
sting ]), 


die statt der 07 hex einzusetzen ist. 
Damit haben Sie Ihre kleine Schnell- 
schreibroutine fertig und kann in je- 
des Programm eingebaut werden, 

Nach diesem Ausflug in die Fein- 
heiten der Datenspeicherung soll 
nun noch ein Lösungsweg für ganz 
problematische Fehler beschrie- 
ben werden, Speziell bei längeren 
Programmen lassen sich nämlich öf- 
terssehrtypische Fälle des»13. Mur- 
phy'schen Computergesetzes« fin- 
den: Je länger ein Programm ist, de- 
sto unwahrscheinlicher ist die Exi- 
stenz einer Sicherungskopie. 

‚Was tun, wenn man nun in dieser 
wenig beneidenswerten Situation 
mit solch einem Drop out konfron- 
tiert ist? Zunächst ist zu sagen, daß 


ss keine perfekte Abhilfe gibt. Man 

2 aber sein wertvolles Pro- 

amm meist wenigstens teilweise 

stten. Wie weiter oben schon ge- 
, speichert der Schneider die 
ten in Blöcken zu je 2 KByte. Dies 

t auch die Voraussetzung dafür, 

ß überhaupt noch etwas zu retten 
st. Da die Blöcke 1 bis X-1 (wobei X 
‘die Nummer des zerstörten Blocks 

arstellt) sauber gelesen werden 
können, können wir diese auch in 
den Speicher holen. Hierbei hilft 
uns der Befehl »CAT«. Mit diesem 

ommando wird nämlich jeder 

Block einzeln eingelesen und aus- 

gewertet. Die Anfangsadresse, ab 
derder CPC die hereinströmenden 
‚Daten ablegt, hängt von der Ober- 
grenze des Benutzerspeichers (HI- 
MEN) ab. Das Prinzip unserer Ret- 
Jungsaktion ist nun relativ einfach. 
Zuerst müssen wir mit »CAT« und 
verschiedenen Speichergrenzen 

@ einzelnen Blöcke hintereinan- 
der an der Speicherobergrenze ab- 
legen. Nachdem wir das gesamte 
Programm bis zum fehlerhaften 
Block eingelesen haben, muß die- 
®es dann noch in die normalen 
‚Adressen, an denen Basic-Program- 
me normalerweise liegen, verlagert 
werden. 

Ein Beispiel: In einem Programm 
st der 7. Block zerstört. Es können 
also sechs Blöcke gerettet werden. 
Alserstes müssen wir einen Dummy 
Schaffen, ein Programm, das um 
mindestens einen Block länger als 
die Anzahl der zu sichernden 
Blöcke ist. Dieses Programm hat ei- 
ze Platzhalterfunktion und ist bei 
‚den folgenden Operationen perma- 
Bent im Speicher. Überzeugen Sie 
sich dabei durch probeweises Ab- 
speichern, daß das neue Programm 


vn 


Er 
9 ee 


as fest im ROM installierte Be- 
triebssystem der Schneider- 
Computer, die sogenannte 
Firmware, ist in eine Reihe wichtiger 
Abschnitte unterteilt, die jeweils 
spezielle Aufgaben wahrnehmen. In 


auch die richtige Blockzahl hat. An 
dieses Programm fügen Sie am En- 
de mit der höchsten Zeilennummer 
noch eine Zeile an: »Nummer FOR 
i=Anfang TO 41855:POKE 
i—Anfang+ 368,PEEK(W):NEXT:END«. 
»Anfang« stellt dabei die Untergren- 
ze des abzuspeichernden Berei- 
ches dar. Dabei muß folgendes be- 
rücksichtigt werden. Der Schneider 
reserviert ja bei jeder Ladeopera- 
tion 4 KByte als Zwischenspeicher. 
Dabei sind die oberen 2 KByte der 
aktuellen Eingabedatei vorbehal- 
ten, die unteren 2 KByte gehören 
der Ausgabe. Wenn Sie also ein Pro- 
gramm mit »CAT« überprüfen, wird 
in den Bytes HIMEN-4095 bis 
HIMEN-2048 ein 2 KByte langer 
Block eingelesen. Nun kann der 
Wert des Platzhalters »Anfang« 
leicht bestimmt werden. JederBlock 
besteht aus 2048 Bytes (= 2 KByte). 
Wir verschieben nun die Speicher- 
obergrenze mit MEMORY um die 
einzulesende Blockzahl nach unten. 
Der Befehl hierzu heißt »MEMORY 
43903-2048*(Blockzahl-I)«. In unse- 
rem Beispiel wären dies 6 x 2048 By- 
tes = 12288 Bytes. Wenn Sie nun 
»CATk ausführen lassen, wird in den 
2 KByte unterhalb dieser Grenze 
der erste Block eingelesen. Nach- 
dem Sie das »OK« für diesen ersten 
Block auf dem Bildschirm haben, 
muß das Programm mit der Escape- 
Taste abgebrochen werden. Mit 
»MEMORY HIMEN +2048« wird die 
Speichergrenze 2 KByte nach oben 
verschoben. 

Noch ein »CAT« und der nächste 
Block ist im Speicher. In unserem 
Fall muß dieser Vorgang sechsmal 
wiederholt werden, bis das defekte 
Programm im Speicher ist. 

Mit derletzten Zeile unseres Dum- 


Firmware-Routinen 
in Basic genutzt 


Folgen Sie unserem Streifzug durch 
das Betriebssystem der Schneider- 
Computer, soweit es für eigene Basic- 
Programme genutzt werden kann. 


ware alle Zugriffe auf die Hardware, 
bewirkt also beispielsweise die Aus- 
gabe von Zeichen auf dem Bild- 
schirm, die Tastaturabfrage oder 
die Ansteuerung des Kassetten-Re- 
corders (beim CPC 464). 

Alle Firmware-Routinen sind zum 
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ımys verschieben wir die geretteten 
Befehle. »Anfang« ist dabei durch 
die Untergrenze unseres Pro- 
gramms (allgemein 43903-2048* 
Blockzahl) zu ersetzen. Die Routine 
verschiebt die gesamten sechs 
Blöcke in den Basic-Programmbe- 
reich ab Adresse 368. Wenn Sie nun 
den Dummy wieder listen, finden 
Sie dort die überlagerten Zeilen des 
zerstörten Programmes wieder. Die 
letzte Zeile sieht allerdings meist et- 
was seltsam aus. Dies resultiert dar- 
aus, daß wir das Programm nur teil- 
weise übertragen haben. Ein sol- 
ches Teil-Programm bringt nun 
beim Speichern Probleme. Auch auf 
ein »DELETE diese Zeilennummer« 
reagiert der CPC unwirsch. Daher 
müssen wir als letztes auf einen 
Trick zurückgreifen, die Abspei- 
cherung von Programmen als 
ASCII-Datei. Wir eröffnen dazu mit 
»OPENOUT Programmname« eine 
Datei zum Schreiben, an die wir 
dann mit »LIST (n-)), #9 unser Pro- 
gramm ausgeben. »n« ist die erste 
unsinnige Zeile (manchmal interpre- 
tiert der CPC nämlich fröhlich wei- 
ter Unsinn). Nun stellen Sie den 
Computer mit Ctrl+Shift+Esc zu- 
rück und laden das gerade gesi- 
cherte Programm wie gewohnt. Der 
nächste SAVE-Befehl funktioniert 
wieder ganz normal. Damit haben 
Sie — wenigstens teilweise — das 
Programm gerettet. Allerdings mit 
einem erheblichen (Zeit-) Aufwand. 
Einen Ersatz für eine Sicherungsko- 
pie kann diese Methode also nicht 
bieten. Sie sollten sich deshalb an- 
gewöhnen, spätestens jede Stunde, 
bei schneller Eingabe oder sehr 
schwierigen Problemen auch häufi- 
ger, eine Sicherheitskopie zu ma- 
chen. (Carsten Straush) 


Aufruf durch Maschinensprache- 
Programme konzipiert, das heißt, 
daß alle Parameter in der Regel in 
den Prozessor-Registern überge- 
ben werden. Da der CALL-Befehl 
die direkte Übergabe von Zahlen- 
werten an die Register des Z80-Pro- 
zessors nicht unterstützt, können die 
weitaus meisten der etwa 250 ver- 
schiedenen Routinen von Basic-Pro- 
grammen aus nicht direkt aufgeru- 
fen werden. Allerdings ist das in vie- 
len Fällen auch nicht nötig, denn um 
die große Vielfalt der Basic-Funktio- 
nen zu realisieren, bedient sich 
auch der Interpreter des CPC 464/ 
664/6128 der Firmware-Routinen. 
Eine Reihe interessanter Effekte 
lassen sich aber durch geschickte 
Anwendung spezieller Firmware- 
CALLs erreichen. Im Folgenden 
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werden die wichtigsten und interes- 
santesten Firmware-Routinen und 
Betriebssystemadressen mit ihrer 
Wirkung vorgestellt. 

Tastatur (Key Manager --KM): 

Wie bei den meisten anderen 
Firmware-Abschnitten gibt es auch 
für den Tastaturbereich eine Initiali- 
sierungs-Routine, welche die Tasta- 
tur in den Zustand direkt nach dem 
Einschalten des Computers ver- 
setzt. Diese Routine mit Namen KM 
INITIALISE kann über »CALL 
&BB00« aufgerufen werden. Dieser 
‚Aufrufistzum Beispiel dann empfeh- 
lenswert, wenn man mit vielen 
»KEY«- und »KEY DEF«-Befehlen die 
Tastatur soweit »vermurkst« hat, daß 
ein vernünftiges Arbeiten nicht 
mehr möglich ist. 

Eine ähnliche, wenngleich nicht 
ganz so weitgehende Routine ist KM 
RESET (BB03hex). Diese Routine 
löscht eine eventuell vorhandene 
Belegung der Funktionstasten und 
den Tastaturpuffer. Ein »CALL 
&BB03« könnte am Ende eines Pro- 
gramms stehen, das die Funktions- 
tasten für eigene Zwecke umdefi- 
niert hatte und den ursprünglichen 
Zustand wieder herstellen möchte. 

Oft kommt es in einem Anwender- 
programm zu der Situation, daß man 
auf einen Tastendruck des Benut- 
zers warten muß. In der Regel for- 
muliert man das als »A$=""!WHILE 
A$=""A$=INKEY$:WEND«. 

Unter Ausnutzung der Firmware- 
Routine KM WAIT CHAR (BBO6hex) 
geht es auch kürzer: »CALL &BB06« 
wartet solange, bis irgendeine Taste 


grammlaufs. Sehen Sie schon den 
Nutzen dieser Routine? Probieren 
Sie einmal das Mini-Programm aus 
Listing ] aus. 

Nach »RUN« geschieht folgendes: 
Der Aufruf von KM BREAK EVENT 
bewirkt das Erscheinen des Cur- 
sors; der Programmlauf ist angehal- 
ten. Die Routine wartet auf das 
Drücken einer beliebigen Taste. 
Dieser Tastendruck wird durch 
»A$=INKEY$« festgehalten. Zeile 20 
erzeugt ein Echo der Eingabe ähn- 
lich wie bei INPUT. Bei Drücken der 
Enter-Taste wird das Programm 
beendet. Damit wird es sehr ein- 
fach, beispielsweise einen forma- 
tierten INPUT-Befehl für Bildschirm- 
masken zu programmieren. 

Ein Problem ist allerdings die Esc- 
Taste. Da die Routine ja praktisch 
die einmalige Betätigung der Esc- 
Taste simuliert, ist jetzt äußerste Vor- 
sicht geboten, um nicht versehent- 
lich Esc zu berühren, was den Ab- 
bruch des laufenden Programms 
zur Folge hätte, Abhilfe schafft hier 
entweder das völlige Abschalten 
der BREAK-Funktion mit »ON BRE- 
AK GOSUB . . .« oder (einfacher) 
das Umdefinieren der Esc-Taste: 
Nach»KEY DEF 66,0,0,252,252« wirkt 
die EscTaste nur noch bei Betäti- 
gung zusammen mit Shift oder Ctrl 
— eine einfache Sicherung gegen 
unabsichtliche Betätigung. 

‘Wem das Hantieren mit BREAK- 
Routinen und Esc-Taste nicht so ganz 
geheuer ist, für den gibt es noch 
zwei interessante Routinen, mit de- 
nen das Erscheinen des Cursorsam 


halten wird. Man muß sich bei di 

ser Methode wieder der bewährt 

WHILE-WEND-Technik bedienen. 
Übrigens zeigt dieses Beispiel ei 


Programmen führt: Die Aufrufadre: 
se von Maschinenprogrammen wir 
an Variable zugewiesen, sodaß M: 
schinenprogramme praktisch mil 
Namen aufgerufen werden. We 
diese Namen dann noch halbwe: 
das ausdrücken, was die Maschi 
nenroutine macht, dann kann m: 
die CALL-Befehle als echte Erweite 
rung des Schneider-Basic auffe 
sen. Die beiden Routinen zum Ein: 
und Ausschalten des Cursors sin 
besonders nützlich, denn jeder Pre 


wenn eine Eingabe erwartet wird, 
Beim INPUT-Befehl \ist das ja kei 
Problem, da erscheint der Cursor 


chen: Hallo Benutzer, ich erwarte ei- 
ne Eingabe. . . hier ist der Cursor! 

‘Wenn man den Cursor lieber blin- 
kend mag (wie von anderen Heim- 
computern bekannt), dann ist das 
auch beim Schneider kein Problem. 
Man muß nur das kleine Listing 3 
eingeben. 

Ähnlich wie beim KEY MANA- 
GER gibt es auch für die drei Be- 
triebssystemteile, die sich mit dem 
Bildschirm befassen, spezielle Ini- 


1@ CALL &BB4B: a$=INKEY$ 


2@ PRINT a$;:IF a$<>CHR$(13) THEN 18 
Listing 1. Die Tastatur kann sehr luxuriös abgefragt werden 


124FA] 


EFFBAI 18 


eplace=&BBBA 


28 cremove=&BBED 
1:EVERY 25,1 GOSUB 98 


12 cplace=tBBBA Cursor ein 

20 cremove=&BBED ursor aus 
s= 
$=INKEY$:WEND 
PRINT as; 

60 IF as<>CHR$(13) THEN S@ 


Listing 2. Eine Tastaturabfrage mit Echo 


L9ES41 
[7048] 
L49CE1 
LFES61 
C4DB21 
E1B781 


78 
so 
92 


128 RETURN 


&0 CALL cremove:PRINT as; 
#lag%=REMAIN(1):REM Timer abschalten 

IF a$s<>CHR$(13) THEN 5@ 

#lag%4=NOT flag%:IF flag% THEN CALL cr 

emove ELSE CALL cplace 


L9ES41 
L7C48] 
LASSE] 
L3ADBI 
CD2581 . 
LEFB4] 
L7C6A1 
£797C1 


E1B4C] 
LAR221 


‘Cursor ein 
"Cursor aus 


(#=INKEY$S:WEND 


Listing 3. Der Cursor kann auch blinken 


gedrückt wurde, Allerdings läßt 
sich anschließend nicht mehr fest- 
stellen, welche Taste das war, was 
aber in sehr vielen Fällen ja auch 
überflüssig ist. 

Eine andere, noch interessantere 
Routine ist KM BREAK EVENT 
(&BB4B). Der Aufruf dieser Routine 
bewirkt das gleiche, wie das einma- 
lige Drücken der Esc-Taste: Das Pro- 
gramm wird angehalten, und es er- 
scheint ein Cursor. Ein einfacher 
Druck aufEsc bricht das Programm 
jetzt sofort ab. Jede andere Taste be- 
wirkt eine Fortsetzung des Pro- 


Bildschirm sehr einfach gesteuert 
werden kann. Beide Routinen befin- 
den sich im TEXT-Abschnitt der 
Firmware: TXT PLACE CURSOR 
(BB8Ahex) läßt den Cursor an der 
aktuellen Cursorposition erschei- 
nen TXT REMOVE CURSOR 
(BB8Dhex) entfernt ihn wieder vom 
Bildschirm. Mit diesen beiden Routi- 
nen sieht das Beispiel zur Tastatur- 
abfrage mit Echo wie in Listing 2 aus. 

Dieses Beispiel ist länger als das 
erste (mit KM BREAK EVENT), weil 
das Programm durch das Setzen 
des Cursors nicht automatisch ange- 


tialisierungsroutinen: TXT INITIALI- 
SE (BB4Ehex) löscht alle Windows, 
schaltet einen eventuellen Transpa- 
rent-Ausgabemodus ab, führt PA- 
PER O und PEN 1 aus und setzt den 
Cursor schließlich in die linke obere 
Bildschirmecke. 

GRA INITIALISE (BBBAhex) führt 
die analogen Operationen für die 
hochauflösende Grafik aus. SCR 
INITIALISE (BBFFhex) schließlich 
initialisiert die gesamte hardware- 
nahe Bildschirmansteuerung. Im 
einzelnen werden alle Farben auf 
den Einschaltzustand zurückgesetzt 


and ein eventuelles Blinken abge- 
jaltet. Weiter wird MODE 1 ge- 
ählt, dabei der Bildschirm ge- 
cht und die Startadresse des Bild- 
auf den Standardbereich 

000 bis FFFFhex gesetzt. 

‘Wenn man sich nun etwas mit sei- 
ner Farbwahl vertan hat und auf 

Bildschirm kaum noch etwas 
erkennen kann, dann reicht oft ein 
ruf von SCR RESET (BC02hex), 
den Schaden wieder zu behe- 
SCR RESET setzt alle Farben 

er auf den Einschaltzustand. 

icht das noch nicht aus, dann soll 
man noch ein »CALL &BB4E« 
chschieben (TXT INITIALISE), 

um auch PEN und PAPER wieder 
ernünftig zu setzen. Bei der Ausga- 
De von Grafik auf dem Bildschirm 
kann es zu gewissen Flimmereffek- 
en kommen. Dies läßt sich elegant 
ämgehen durch Aufruf von MC 

AIT FLYBACK (BD19hex). Der Auf- 

dieser Routine entspricht dem 
-Befehl FRAME im Basic 1.1 

s 664/6128. Die Routine wartetein- 

'h auf den Rücklauf des Elektro- 

nstrahls, der dasBild aufden Bild- 

zeichnet, Während der 
ücklaufphase des Bildschirms wir- 
sich Manipulationen am. Bild- 
‚schirminhalt nicht auf den optischen 
Eindruck aus. Die Routine muß also 
or jeder kritischen Bildschirmaus- 
"gabe (besonders bei schneller Gra- 
ük) aufgerufen werden, um Flim- 
merfreiheit zu garantieren. Aller- 
dings leidet natürlich die Ausfüh- 
zungsgeschwindigkeit des Pro- 
gramms darunter, denn der einzige 
Zweck der Routine MC WAIT FLY- 
BACK ist das Warten — darauf, daß 
der Elektronenstrahl der Bildröhre 
ein Bild fertig gezeichnet hat. 

Zur Grafik gibt es noch einen in- 
teressanten POKE-Befehl, der den 
beim CPC 464 nicht vorhandenen 
Basic 1.l-Befehl MASK simuliert: 
Probieren Sie mal »POKE &B338, 
PEEK(&B338) AND &AA: MOVE 
100,100 DRAW 500,300« (Achtung, 
Sunktioniert nur beim CPC 464|), Die 
Speicherstelle B338hex enthält näm- 
lich eine Farbmaske für den grafi- 
schen Zeichenstift. Diese Farbmas- 
ke kann man nochmals maskieren 
{mit AND und einem Bit-Muster), so 
daß unterbrochene Linien gezeich- 
net werden. 

Der SCREEN PACK (SCR) enthält 
noch eine weitere Routine, die ab 
und zu nützlich sein kann: SCR HW 
ROLL (BC4Dhex) rollt den Bild- 
schirm um eine Textzeile aufwärts 
oder abwärts. Dieses Rollen wird 

dwaremäßig realisiert, indem 
nfach nur der Bildschirm-Offset- 
Wert in einem Register des Video- 
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Chips verändert wird. Daher ist die 
Methode sehr schnell. Allerdings 
kann immer nur der gesamte Bild- 
schirm so gescrollt werden, kleine- 
re Windows lassen sich nichteinzeln 
bewegen. 

Ob aufwärts oder abwärts ge- 
scrollt wird, entscheidet der Inhalt 
des B-Registers der Z80-CPU bei 
Aufruf der Routine. Ist B gleich Null, 
wird nach unten gescrollt, in allen 
anderen Fällen nach oben. Beim 
Aufruf eines Maschinenprogramms 
mit dem CALL-Befehl kann das B- 
Register, wie die meisten anderen 
CPU-Register, leider nicht direkt 
beeinflußt werden. Es enthält bei 
Eintritt in die aufgerufene Routine 
immer die Höchstzahl 32 der mögli- 
chen Parameter des CALL-Befehls 
minus die Anzahl der tatsächlich‘ 
übergebenen Register. Die Adresse 
der Maschinenroutine zählt dabei 
nicht als Parameter. Dadurch enthält 
Bimmer den Wert 32, falls kein wei- 
terer Parameter angegeben wurde. 
Für die Routine zum Scrollen des 
Bildschirms bedeutet dies, daß nor- 
malerweise immer ein Scrollen 
nach oben realisiert wird. Um nach 
unten zu scrollen, müssen 32 Para- 
meter zum CALL-Befehl angegeben 
werden. Die Werte dieser Parame- 
terspielen keine Rolle, eskommtnur 
auf die Anzahl von 32 an, damit das 
B-Register auf Null kommt. Ein Auf- 
ruf der Art »CALL &BCAD |, 2, 3,4, 
5, 6, 7,8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 
18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 
29, 30, 31, 32« zum Beispiel läßt den 
Bildschirm eine Textzeile nach un- 
ten scrollen. Nicht sehr praktikabel, 
aber immerhin ein Notnagel, wenn 
man ohne Maschinensprache aus- 
kommen will. Als reine Basic-Alter- 
native bietet es sich natürlich noch 
an, einfach den Cursor mit LOCATE 
in die oberste oder unterste Zeile zu 
setzen, und dann mit Steuerzeichen 
für »Cursor up« oder »Cursor down« 
ebenfalls ein Scrollen des Bild- 
schirms oder sogar einzelner Win- 
dows zu erreichen. 

Sound Manager 

Der Sound Manager ist derjenige 
Teil der Firmware, der sich mit der 
Ansteuerung des Sound-Chips be- 
faßt, Hier gibt es drei mehr oder 
minder interessante, durch CALL- 
Befehle nutzbare Routinen: SOUND 
RESET (BCAThex) löscht alle Sound- 
Warteschlangen und bringt den 
Sound-Chip zum Schweigen. 
SOUND HOLD (BCBö6hex) dagegen 
unterbricht einen gerade gespiel- 
ten Ton-Effekt, ohne ihn zu beenden. 
Mit SOUND CONTINUE (BCB9hex) 
wird die unterbrochene Tonfolge 
korrekt zu Ende gespielt. 
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Cassette Manager 

Der Cassette Manager kümmert 
sich, wie der Name schon sagt, um 
alles, was mit Aufzeichnung und Le- 
sen von Daten auf Kassette zusam- 
menhängt. Für den Basic-Program- 
mierer interessant ist zunächst wie- 
der die Initialisierung: CAS INITIA- 
LISE (BC6Shex) markiert alle Da- 
teien als geschlossen und setzt die 
Aufzeichnungsgeschwindigkeit auf 
SPEED WRITE 0. 

‘Wenig bekannt ist, daß zwei Datei- 
en gleichzeitig geöffnet sein kön- 
nen, eine zum Lesen und eine zum 
Schreiben, Der Cassette Manager 
verwaltet Schreiben und Lesen 
von/zu Kassette/Diskette vollkom- 
men getrennt. Bei Verwendung von 
Kassetten zur Datenspeicherung 
muß man nur darauf achten, daß 
man je nach Aufforderung des Be- 
triebssystems (»Press Play then any 
key« oder »Press Record&Play then 
any key«) immer zwischen Schreib- 
und Lesekassette wechselt. Auf die- 
se Art und Weise lassen sich zum 
Beispiel Dateien führen, die um- 
fangreicher sind als der verfügbare 
Speicherplatz. 

Brauchbare Routinen des Casset- 
te Manager sind CAS START MO- 
TOR (BC6Ehex) und CASSTOPMO- 
TOR (BC7lhex), mit denen der Mo- 
tor des Kassetten-Recorders ein- 
und ausgeschaltet werden kann, 
Die Routinen sind sinnvoll, wenn 
man dem Benutzer von einem Pro- 
gramm aus die Möglichkeit geben 
will, mitder PLAYTaste das Band ge- 
nau auf eine bestimmte Zählwerk- 
stelle zu positionieren. Ein anderer 
denkbarer Anwendungszweck ist 
das automatische Vorspulen zu ei- 
nem bestimmten Programm auf der 
Kassette. Dazu muß die Vorspulzeit 
bei schnellem Vorlauf bekannt sein, 
dann kann man das Band diese Zeit 
vorspulen. Natürlich ist das recht 
umständlich im Vergleich zum Kom- 
fort einer Diskettenstation. 

Das waren die Firmware-Routinen 
der Schneider-Computer, soweit sie 
sich durch CALL-Befehle von Basic 
aus nutzen lassen und nicht bereits 
direkt durch Basic-Befehle realisiert 
sind. Vielleicht haben Sie hieraus ei- 
nige Änregungen zur effektiveren 
Programmierung ziehen können. Ei- 
nes aber sollten Sie auf jeden Fall 
bedenken: Übertreiben Sie den Ge- 
brauch von CALL, PEEK und POKE 
nicht, denn er führt sehr schnell zu 
völlig unleserlichen Programmen. 
‘Wenn Sie jemals ein Listing etwa für 
den Commodore 64 gesehen ha- 
ben, dann wissen Sie, was gemeint 


ist... 
(Volker Everts) 
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Ihr Schneider mal 


ganz intern 


Maschinencode-Routinen, die 

immer wieder benötigt werden, 
im ROM fest eingebaut — Program- 
me, die beispielsweise eine Linie 
auf dem Bildschirm zeichnen, ein 
Zeichen an den Drucker ausgeben 
und so weiter. Wenn man die Ädres- 
sen dieser Routinen kennt, kann 
man sich bei eigenen Programmen 
einen Haufen Arbeit sparen. 

Bei den drei Schneider-Compu- 

tern können die Betriebs-Routinen 
indirekt aufgerufen werden; Im 
RAM-Bereich zwischen B900 und 
BD39hex befinden sich Sprungbe- 
fehle zu verschiedenen Routinen. 
Möchte man solch eine Befehlsfolge 
aufrufen, dann wird inderRegelnur 
der entsprechende Sprungbefehlin 
dieser Tabelle aufgerufen, Erst die- 
ser Befehlleitet die Bearbeitung der 
eigentlichen Routine ein. Dieser 
Umweg hat mindestens zwei Vor- 
teile: 
— Das eigentliche Unterprogramm 
kann im Speicher an einer beliebi- 
gen Stelle stehen. Dadurch ist es 
möglich, daß sich der Einsprung auf 
eine bestimmte Adresse bezieht, 
die eigentliche Routine aber ganz 
woanders steht. 

Programme, die nur diese indi- 

rekten Sprungvektoren verwenden, 
sind damit vom Computertyp unab- 
hängig. 
— Durch die Lage der Sprungbefeh- 
le im RAM kann die Tabelle leicht 
abgeändert werden. Durch denEin- 
bau einer »Umleitung« kann eine fest 
eingebaute Systemfunktion ergänzt 
oder sogar ganz durch eine andere 
ersetzt werden. 

In den Schneider-Computern gibt 
es ungefähr 200 auf diese Weise 
standardisierte Unterprogramm- 
funktionen. Die große Zahl machtes 
unmöglich, alle Routinen einzeln 
aufzuzählen. In der folgenden Ta- 
belle sind deshalb nur die wichtig- 
sten aufgeführt. Es fehlt beispiels- 
weise die Maschinencode-Sequenz 


| n jedem Computer sind wichtige 


Ein Computer kann viel mehr als 
sein Basic vermuten läßt. Im 
Betriebssystem findet man oft sehr 


teressante Anweisungen. Hier 
finden Sie die wichtigsten ROM-Routinen. 


Steuerzeichens mit 
OChex) ersetzt werden. Auch andı 
re Funktionen (hauptsächlich deı 
Bildschirm betreffend) lassen sic] 
so leicht aufrufen. 

Die Routinen stammen vom CP 
464. Sie laufen aber ohne Änderun 
teilweise auch auf dem 664 ode: 
6128. Hier hilft einfach ausprobii 
ren. Starten Sie eine Entdeckung: 
reise in das Betriebssystem Ihre: 
Computers. 


(Helmut Tischen 


Die RST-Befehle erlauben beim Z80 frei programmierbare Objektcodes. In den CPC- 
Computern werden diese als erweiterte CALL/JP-Befehle eingesetzt. Einem normalen 
CALL-Befehl folgen zwei Bytes, die die Adresse eines Unterprogramms im Speicher an- 
geben. Einem RST-Befehl folgen hierbei zwei Bytes, die eine Adresse enthalten. Damit 
kann eine beliebige Adresse im gesamten Speicher des Computers ausgewählt werden 
— sowohl im eingebauten RAM oder ROM als auch in beliebigen Erweiterungs-ROMs. 


RST O8hex: 


RST lOhex: 


RST l8hex: 


RST 20hex: 


RST 28hex: 


001Bhex: 


BCDähex: 


‚B906hex: 
B909hex: 


Diese Anweisung wirkt ähnlich einem JP-Befehl. Die beiden nachfol- 
‚genden Bytes enthalten nur in den niederwertigen 14 Bits eine Adres- 
se. Deshalb kann auch nur eine Routine im Adreßbereich von 0000hex 
bis 3FFFhex aufgerufen werden, Dafür ist aber der Zustand der ROMs 
während der Ausführung des ausgewählten Programms frei wählbar: 
Hat Bit 15 den Wert 0, so kann während der Ausführung das obere 
ROM gelesen werden. Hat Bit 14 den Wert 0, so wird das untere ROM 
eingeschaltet. Nach Beenden der Routine wird der vorherige 
ROM/RAM-Zustand wiederhergestellt. 

Dieser RST-Befehl ist einem CALL-Befehl vergleichbar. Die unteren 14 
Bits der nachfolgenden zwei Bytes geben wieder eine Adresse an, die 
jedoch diesmal zu einem Sprung ins obere ROM führt. Die Bits 14 und 
15 werden vor dem Aufruf des Unterprogramms zur laufenden ROM- 
Nummer addiert. Steht der »RST lOhex«-Befehl in einem ROM mit der 
Nummer x und haben die Bits 14 und 15 den Wert lObin(=2), so wird 
ein Unterprogramm im Erweiterungs-ROM Nummer x+2 aufgerufen. 
Das ist der effektivste CALL-Befehl bei den Schneider-Computern. Da- 
mit kann jede beliebige Adresse in jedem beliebigen ROM/RAM auf- 
gerufen werden, Dazu sind auch hier nur zwei nachfolgende Bytes 
nötig. Diese zwei Bytes sind ein Zeiger auf eine Tabelle im zentralen 
RAM. Diese Tabelle enthält drei Bytes mit der vollständigen Adresse: 
Die ersten beiden Bytes geben die 16-Bit-Adresse des Unterprogramms 
an und das dritte Byte die Nummer des während des Aufrufs selektier- 
ten Erweiterungs-ROMs. Ausnahmen bilden die ROM-Nummermn FC 
bis FFhex: Bei diesen bleibt das schon vorher gewählte ROM unverän- 
dert. Die Bits 0 und 1 regeln analog zum »RST O8hex«, welches 
ROM/RAM ein- oder ausgeschaltet ist. 

Diesem RST-Befehl folgt kein dazugehöriges Byte. Er wirkt wie ein »LD 
A,(HL)«Befehl, liest jedoch immer aus dem RAM. 

Dieser Befehl wirkt ähnlich einem »JP«-Befehl. Vor dem Ansprung des 
Unterprogramms wird aber das untere ROM eingeschaltet. Der Zu- 
stand des oberen bleibt unverändert. Wegen der zwei nachfolgenden 
Bytes, die als 16-Bit-Adresse interpretiert werden, kann ein Programm 
im gesamten Speicherbereich angesprungen werden. 


Diese Routine wirkt ähnlich wie der »RST l8hex«-Befehl. Die ROM- 
Nummer befindet sich jedoch im Register C und die Adresse des Pro- 
gramms im Register HL. 

Diese Routine sucht einen RSX-Befehl im gesamten Speicher. Beim 
‚Aufruf muß HL auf den Namen des Befehls zeigen, wobei Bit 7 im letz- 
ten Namensbyte gesetzt ist. Als Ergebnis erhält man im C-Register die 
Nummer des ROMs, in dem sich der Befehl befindet und im HL- 
Register die Adresse des Befehls. 


Schaltet das obere ROM ein. 

Schaltet das obere ROM aus. ir 
Schaltet das untere ROM ein. Weitere Routinen 
Schaltet das untere ROM aus. zum Bankswitching 


1/6 Sonderheft Schneide 


ET Be Te hi 


Grundlagen 
‚Adresse Übergabeparameter Ergebnis Bedeutung 
BB00 hex _ _ Original-Tastenbelegung 
wiederherstellen 
'BB09 hex _ ch Ist eine Taste gedrückt? 
1, wenn ok, 
A: Code 
BBOC hex a:Code - Nächstes Lesen von der Tastatur 
gibt diese Zeichen 
BBOF hex B:Stringnummer cH Funktionsstring setzen 
1, wenn ok. 
C:Länge 
HL:Adresse String 
BBIS hex DE:Adresse - Speicher für Funktionsstrings 
HL-Länge reservieren 
BB27 hex A:Tastennummer = Belegung einer Taste ändern 
B:neuer Code 
BB2D hex wie BB27 hex _ Belegung Taste mit Shift ändern 
BB33 hex wie BB27 hex — Belegung Taste mit Ctrl ändern 
BB39 hex A:Tastennummern Repeat-Status ändern 
B:FF=Repeat/ 
00=nicht 
BB3F hex H:Anfangsverzögerung Repeatgeschwindigkeit einstellen 
L:Wiederholverzögerung 
(CY=carry lag) 
Wichtige Routinen zur Tastaturverwaltung 
‚Adresse Eingabe Ergebnis Bedeutung 
BBSA hex A:Code _ (Steuer)zeichen ausgeben 
BB60 hex = CY:l, wenn ok. Zeichen an Cursorposition lesen 
A:Code 
BB87 hex H:Spalte CY=1 Testen ob zu testende Stelle im 
L:Zeile = >Korrigieren Fenster ist: wenn nein, 
rollt Bildschirm bei neue Position angeben 
B:FF nach oben und bei 
B:00 nach unten 
H:neue Spalte 
Lineue Zeile 
BBAE hex = wie BBAB hex Definiert Matrix vorhanden? 
BBBl hex = HL:Adresse Bestimmt die Adresse der 
Steuerzeichen Sprungtabelle. 
Für jedes Steuerzeichen von 
00 bis IF hex drei Byte: 
1.=Anzahl der Parameter, 
2.=Routineadresse 
Wichtige Routinen zur Zeichenausgabe 
‚Adresse Eingabe Ergebnis Bedeutung 
BBCO hex = _ MOVE-Befehl 
BBC3 hex = - MOVER-Befehl 
BBC9 hex — = ORIGIN-Befehl 
BBEA hex — — PLOT-Befehl 
BBED hex Z — PLOTR-Befehl 
BBFO hex = A:Farbe TEST-Befehl 
BBF3 hex Be A:Farbe TESTR-Befehl 
BBF6 hex — - DRAW-Befehl 
BBF9 hex = = DRAWR-Befehl 
BBCF hex _ Breite des Grafikwindows setzen 
BBD2 hex _ Höhe des Grafikwindows setzen 
BBDB hex - ni Grafikwindow löschen 
BBDE hex A:Farbe = Grafik-Farbstift setzen 
BBEI hex A:-Farbe _ Grafikhintergrundfarbe 


Wichtige Grafik-Routinen 


T 


Grundlagen 


— 
‚Adresse Eingabe Ergebnis Bedeutung 
BDI9 hex 4 u auf Bildschirm- 
Strahlrücklauf warten 
BD2B hex A:Code - Zeichen drucken 
BD2E hex = CYl=ok. Drucker frei? 
BD34 hex A:Registernummer = Sound-Chip mit Daten versorgen 
C:Daten 
BC68 hex HL:Geschwindigkeit — Aufzeichnungsgeschwindigkeit 
A:Kompensation Baud-Rate=333333/HL 
BC6B hex A:00 Meldungen da = Meldungen »Press Play« und so 
FF keine Meldungen weiter Ein-/Ausschalten 
BC6E hex = — Kassetten-Motor starten 
BC7I hex — _ Kassetten-Motor stoppen 
BC77 hex B:Länge Dateiname CYıl=>ok. OPENING-Funktion 
HL:Adresse Namen Z:l= >Break 
DE: 2 KByte Puffer >already open 
BCT7A hex = CY:0=> notopen CLOSEIN-Funktion 
BCT7D hex = - sofortiges Schließen der Eingabe 
(für Fehlerfall und so weiter) 
BC80 hex = Zeichen von der Datei lesen 
BC89 hex - CY=I:nicht erreicht EOF-Funktion 
Zı—>break 
BC8C hex wie BC77 hex “ OPENOUT-Befehl 
BC8F hex wie BC7A hex . CLOSEOUT-Befehl 
BC92 hex wie BC7D hex . wie BC7D hex, ohne Zurück- 
zuschreiben des Puffers 
BC95 hex A:Byte wie BC80 hex Zeichen an Kassette ausgeben 
BCSB hex — CY:0= >Fehler CAT-Befehl 
Wichtige Routinen zur Ein-/Ausgabe 
ne 
Adresse Eingabe Ergebnis 
BC05 hex HL:Versatz _ Lage der linken oberen Ecke 
relativ zum Bildschirm 
BC08 hex A:Höherwertiges - Bildschirmanfangsadresse 
Byte setzen 
BC20 hex HL:Adresse HL:Adresse Bildschirmadresse berechnen, 
die auf der Anzeige rechts neben 
der angegebenen liegt 
BC23 hex HL:Adresse HL:Adresse wie BC20 hex, jedoch links 
BC26 hex HL:Adresse HL:Adresse wie BC20 hex, jedoch unten 
BC29 hex HL:Adresse HL:Adresse wie BC20 hex, jedoch oben 
BC3E hex H:Zeit 1. Farbe == Blinkzeiten einstellen 
L:Zeit 2. Farbe 
BC4D hex B:00= >unten - Bildschirm hardwaremäßig rollen 
FF=>oben 
A:Farbe zum Löschen 
BCS0 hex Hlinks (Byte) = Window softwaremäßig rollen | 
Direchts | 
L:oben (Rasterzeile) 
E:unten 
A:Farbe 
BWie BC4D hex | 
ige Routinen zur Bildschi | 
| 


Wichtige irmsteuerung 
(Wenn nichts anderes erwähnt, enthält DE die x-Koordinate und HL die y-Koordinate) 


ross-Reference-Routinen, die in 
Basic geschrieben sind, haben 
zwei erheblich störende Nach- 
Sile: Zum einen sind sie sehr lang- 

am und zum zweiten muß daszu un- 
rsuchende Programm in Form ei- 
er ASCII-Datei vorliegen. Norma- 
Eerweise werden Basic-Befehlswor- 
© als »Token« verkürzt gespeichert. 

a einer ASCII-Datei würden die 
er Werte 47, 4F, 54 und 4F (alle he- 
adezimal) dem GOTO_ entspre- 
hen. Mit dem Schneider-Computer 
es zwar einfach aus einem Basic- 
ogramm eine ASCII-Datei zu ma- 
Shen (einfach mit dem Zusatz »A« 
peichern). Der dazugehörige Spei- 
her- und Ladevorgang ist aber um- 
@ändlich. Aus diesem Grunde ist 
#Oref« vollständig in Maschinenco- 
@e geschrieben. Auch 20 KByte lan- 
Se Programme werden somit in Se- 
fündenschnelle bearbeitet und 
Eusgewertet. 

Der Basic-Interpreter Ihres 
Schneiders stellt beim Bearbeiten 
eines Programms eine Tabelle der 
Benutzten Variablen auf, um beispä- 
#ren Wertzuweisungen (oder Bild- 
Schirmausgaben) ohne langes Su- 
hen die richtige Variable mit ihrem 
@ktuellen Wert zu finden. 
Grundidee von »Crefk ist es, diese 
Tabelle durch Aufruf geeigneter In- 
erpreter-Routinen aufbauen zu las- 
Sen ohne das Programm zu starten. 
Dadurch werden vorzeitige Wertzu- 
weisungen verhindert, Für jeden 
Einzelnen Namen aus der Tabelle 
wurd das Programm nach entspre- 
‚chenden Referenzen durchsucht. 
Somit spart man sich den Aufbau ei- 
- Dan sortierten Be 


Kir “ 


In einem Programm alle benutzten 
Variablen zu kennen, ihre Position zu 
finden und bei Änderungen keine 
zu vergessen, das ist auch für ge- 
übte Programmierer ein risikoreiches Unter- 
angen. Hilfe bietet dieses Cross-Reference- 
rogramm, das die Namen heraussucht und 
uf die dazugehörigen Zeilen verweist. 


ste. Der Speicherbedarf reduziert 
sichdadurcherheblich, sodaßauch 
große Programme ohne Probleme 
bearbeitet werden können. 

»Cref« liegt im Speicherplatz A000 
hex und ist damit auch auf den Be- 
trieb des Diskettenlaufwerks von 
Schneider abgestimmt. Besitzer ei- 
nes anderen Laufwerks, eines CPC 
664 oder eines CPC 6128, müssen 
unbedingt die von »Cref« benutzten 
System-Routinen und -Vektoren an- 
passen. 


Token statt Befehle 


Zum besseren Verständnis der 
Routine sind einige Kenntnisse über 
die Ablage von Basic-Zeilen beim 
Schneider nötig. Betrachten wir 
hierzu Listing 1. In Bild 1 finden Sie 
das gleiche Programm so wieesder 
Computer nach dem Befehl LOAD 
gespeichert hat. Es fällt sofort auf, 
daß die Zeilen nicht im ASCII-Code 
vorliegen, sondern »mundgerecht« 
für den Interpreter aufbereitet sind. 
Anstelle der Basic-Befehle tauchen 
die sogenannten Tokens auf. Dabei 
handelt es sich um nichts anderes 
als eine (allerdings sehr trickreich) 
verkürzte Schreibweise für den Be- 
fehl, Da ein Token maximal zwei 
Bytelangist, wird er vom Interpreter 
schneller erkannt und bearbeitet. 
"Weiter sieht man sofort, daß Integer- 
Zahlen in eine zwei Byte lange hexa- 
dezimale Zahl umgewandelt wer- 
den und daß die Zeilennummer im 
3, und 4. Byte der Zeile (hexadezi- 
mal) vorliegt. Die ersten zweiByteei- 


Grundlagen 


ner Zeile geben die Länge der vom 
Interpreter umgewandelten Zeile 
an. Diese ist meist nicht identisch mit 
der Länge der ursprünglichen Zei- 
le. Die Namen der Variablen ent- 
sprechen bis auf die letzte Stelle der 
normalen ASCII-Schreibweise. Zum 
Wert des letzten Zeichens wird im- 
mer 80 hex addiert, also das siebte 
Bit gesetzt, Die Schreibweise in 
Groß- und Kleinbuchstaben wird 
beibehalten, obwohl der Computer 
beim späteren Bearbeiten keinen 
Unterschied macht hvariable« ist für 
ihn beispielsweise das gleiche wie 
»VARIABLEX« oder »vAriaBlEo). 

Von der Syntax her ist es jetzt 
leicht verständlich, wie der Inter- 
preter eine Zeile bearbeitet. Nach 
der Zeilennummer steht ja entwe- 
der ein Befehl (also ein Token) oder 
aber eine Variable — von Blanks 
und Fehlern einmal abgesehen. Um 
den Variablennamen zu bekommen, 
werden alle Zeichen gelesen, bis 
hin zu dem Wert bei dem Bit 7 in ei- 
nerm Byte gesetztist. Ganzso einfach 
ist es dann aber doch nicht. Vor je- 
dem Variablennamen stehen näm- 
lich noch drei weitere Bytes. Unter- 
suchen wir das erste, Beivalpha« aus 
dem Beispiel hat es den Wert 
ODhex, bei »index%« den Wert 
02hex, bei »mes$« den Wert 03hex 
und Sie vermuten richtig, daß hier- 
durch der Typder Variablen festge- 
legt ist. Also bedeutet: 

— 0Dhex eine Variable ohne Typen- 
kennung 

— O4hex eine Real-Variable 

— 03hex eine String-Variable 

— 02hex eine Integer-Variable 

Die beiden Bytes vor dem Varia- 
blennamen haben so lange den 
Wert Null, bis das Programm gestar- 
tet wird. Nach »RUN« ändert sich 
hier nämlich etwas, wie man in Bild 
2 sieht. Die Änderung hängtmitdem 
Aufbau der Variablentabelle durch 
den Interpreter zusammen. Für un- 
ser Beispiel ist diese in Bild 3 wie- 
dergegeben. Die Variablen werden 
also in einer Tabelle mit ihren ak- 
tuellen Werten — fallseshier Zahlen 
sind — abgelegt. Für Integerzahlen 
sind dabei 2 Byte, bei Realzahlen 5 
Byte reserviert. String-Variable be- 
legen in der Tabelle 3 Byte: das er- 
ste gibt die Länge des Strings an, die 
beiden nächsten die Adresse, wo 
die Zeichenkette zu finden 
»mes$« beispielsweise hat die Lä 
ge 4 und die Zeichenkette steht bei 
OICA hex. Zu beachten ist ferner, 
daß in der Variablentabelle auch 
die Typenkennung — jeweils um 
eins vermindert — mit abgelegt ist. 

Im RAM des CPC steht bei 
AE8Shex der Zeiger aufdiese Varia- 
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blentabelle (in unserem Fall ist dies 
0258hex). Die zwei Byte vor alpha« 
in der ersten Zeile von Bild 2 als he- 
xadezimale Zahl interpretiert, erge- 
ben 09hex. Diesen Wert addieren 
wir zum Tabellenanfang (0258hex) 
und erhalten die Zahl 026lhex. Zie- 
hen wir l ab, sohaben wir die Adres- 
se, an der der aktuelle Wert der Va- 
riablen in der Variablentabelle steht 
(026lhex —I). Damit ist das Geheim- 
nis der zwei Byte vor einem Varia- 
blennamen gelöst: Hier steht die 
Zahl (Offset), die, zum Tabellenan- 
fang addiert, die Adresse für den 
aktuellen Wert einer Variablen er- 
gibt. Falls dieser Offset Null ist, 
»weiß« der Interpreter, daß die Va- 
riable noch nicht in der Tabelle an- 
gelegt ist. Damit ist auch die Wir- 
kung des »CLEAR«Befehls beim 
CPC klar. Es wird nämlich einfach 
der Offset vor jeder Variablen inner- 
halbeiner Interpreterzeile gelöscht. 
Diese Tatsache wollen wir für »Cref« 
ausnutzen. 

Untersuchen wir den Aufbau der 
Variablentabelle, so stellen wir fest, 
daß sie nicht sortiert abgelegt wird. 
Betrachten wir also wieder die zwei 
Byte vor dem Variablennamen in 
der Tabelle (Bild 3). Bei fast allen Va- 
riablen steht der Wert Null, OE hex 
(bei X) addiert zum Tabellenanfang 
0258hex ergibt 0266hex und bei 
0267hex steht X1. Die Vermutung, 
daß OEhex als Offset zu verstehen 
ist, ist richtig. Mit den zwei Byte vor 
dem Variablennamen in der Tabelle 
baut der Interpreter für die Namen 
mit gleichem Anfangsbuchstaben 
eine verkettete Liste auf. In den 
Adressen ADDOhex bis AE03hex 
legter den Offset für den ersten Ein- 
trag eines Variablennamens ent- 
sprechend dem Anfangsbuchsta- 
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Bild 1. So sieht das Beispiel aus Listing 1 aus der Sicht des Interpreters aus 
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ben ab. Taucht beim Bearbeiten ei- 
nes Programms nun eine andere Va- 
riable mit dem gleichen Anfangs- 
buchstaben auf, so trägt er deren 
Namen am Ende der Variablenta- 
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Bild 3. Die Variablentabelle 


belle ein. Dann wird anhand der au en Benin 
Einträge in den Adressen bei 
ADDOhex bis AE03hex überprüft, 
ob es schon eine Variable mit die- 
sem a gibt. Falls 
nicht, wird der set des zuletzt ein- 
getragenen Namens entsprechend nn 
dem Anfangsbuchstaben in einer 3@ x=EXP(X1) 
nes ae ADDOhex und “ N 

hex abgelegt. Falls ja, trägt er en 13 
den Offset des vorher eingetrage- ee ee 
nen Namens in den zwei Byte vor 80 alpha=gamma !#2 
dem letzten Eintrag ein und legt den INES ELLE 4 
Offset der zuletzt eingetragenen Va- N 
riablen zwischen ADDOhex und Listing 1. 
AE03hex neu ab. In der Variablenta- Wo steht welche Variable? 


belle entsteht so eine Kette für Varia- 
ble mit gemeinsamen Anfangsbuch- 
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Bild 2. Nach der Anweisung »RUN« verändern sich die Zeiger auf die Variablen 


es 


'staben. Deren erstes Element findet 
‚man über den Offset aus der dem 


‚Anfangsbuchstaben entsprechen-. 


den Adresse zwischen ADDOhex 
und AE03hex. Das letzte Element 
dieser Kette ist durch den Offset 
Null gekennzeichnet. 
Daß die Variablen »alpha« und var- 
ray« nicht verkettet sind (bei beiden 
st der Offset in der Variablentabelle 
nach Bild 3 Null), liegt daran, daß»al- 
"Pha« eine skalare Variable ist, »ar- 
Tayı dagegen eine indizierte. Für 
kalare und indizierte Variablen 
werden nämlich zwei verschiedene 
abellen erstellt. Den Aufbau der 
ay-Tabelle (für indizierte Varia- 
Ölen) brauchen wir aber nicht näher 
äntersuchen, da bei »Cref« skalare 
nd indizierte Variable gleich be- 
Sandelt werden, 


Wo stehen die 
Sprungadressen? 


Zu einer vernünftigen Cross-Refe- 
-Liste gehört auch die Ausgabe 
on Sprungadressen. Wie werden 
se nun vom Interpreter des 
eiders abgelegt? Schauen wir 
ns dazu erst Bild 1 an. Bei »GOTO 
D« (Zeile 90) und »THEN 100« (Zeile 
0) werden die Zeilennummern he- 
fadezimal abgelegt. Zuvor wird 
och die Kennung lEhex eingetra- 
Sen. Nach »RUN« ändert sich diese 
ennung zu lDhex (Bild 2) und die 
eilennummer ist verschwunden. 
Der Interpreter wandelt nämlich die 
eilennummern in Adressen der 
elle um (ein Grund für die Ge- 
chwindigkeit des CPC-Basics). Er- 
it der Interpreter die Kennung 
lEhex, so sucht er die Anfangs- 
dresse der entsprechenden Zeile, 
die Nummer durch die ge- 
Sindene Adresse und ändert die 
ennung in lDhex. Beim nächsten 
hat er dann die Sprungadresse 
E zur Verfügung. 
‘Wir haben nun genug »Interpre- 
r-Rüstzeug« und können mit der 
beschreibung von »Cref« 
en. Der erste Programmteil 
A000hex) dient dem Einbinden 
on »Cref« als RSX-Befehlserweite- 
jung. Nach Laden des Binärfiles (ab 
000hex) — vorher das zu untersu- 
chende Basic-Programm mit »ME- 
[ORY &9FFF« schützen — und 
#CALL &A000« kann die Routine mit 
REF« aufgerufen werden. 
Da wir mit »Cref« auf Routinen des 
aterpreters zugreifen, muß zuerst 
entsprechende ROM freigege- 
werden. Der Ausgabekanal 
auf den Drucker gegeben be- 
in der Routine GVAR die A 


FH 


be der Referenzen für die Variablen 
vorbereitet wird. Hierzu muß zu- 
nächst die Variablentabelle ge- 
löscht werden. Von PSTART 
(AE81hex) wird die Adresse des Pro- 
grammanfangs in das Register HL 
geladen. Die Routine NXTLNE liest 
die Zeilenlänge in das Register BC 
und speichert in ZNR die Zeilen- 
nummer. Ist die Länge einer Zeile 
Null, so ist das Programmende er- 
reicht. Ansonsten wird die Interpre- 
ter-Routine NXTELM aufgerufen, 
die in das Register A ein Token zu- 
rückgibt und HL entsprechend er- 
höht. Je nach Inhalt von A wird dann 
in der Zeile weiter nach einem To- 
ken gesucht, die nächste Zeile ge- 
holt oder überprüft ob eine Variable 
vorliegt. Letzteres erledigen die 
Routinen VARTST und TSTTYP Han- 
delt es sich um eine Variable, so 
wird mit TABEXT durch Aufruf ent- 
sprechender Routinen deren Name 
in die Tabelle eingetragen. 

Auf einen wichtigen Punkt sei in 
diesem Zusammenhang noch hinge- 
wiesen. Wie schon erwähnt, verwal- 
tet der Interpreter des CPC für ska- 
lare und indizierte Variablen zwei 
verschiedene Tabellen. Um nicht 
beide hintereinander bearbeiten zu 
müssen und den Programmierauf- 
wand in Grenzen zu halten, werden 
durch den Aufruf von TABEXT die 
Variablennamen nur in die Tabelle 
für skalare Variablen eingetragen. 
Wir haben also keinen Unterschied 
zwischen skalaren und indizierten 
Variablen (vergleiche hierzu Bild 4, 
das die Variablentabelle für unser 
Beispiel nach Aufruf von »Cref« wie- 
dergibt). Im Gegensatz zu Bild 3sind 
hier die Variablen »array« und »al- 
pha« verkettet. Dies wirkt sich aber 
nur bei Programmen aus, in denen 
beispielsweise »a$«, »a%« und »al« 
gleichzeitig verwendet werden. 

Eine weitere Einschränkung ist 
beider Bearbeitung von benutzerei- 
genen Funktionen zu machen. Die 
mit DEF FN definierten Funktionen 
werden mit dem Token E4hex ge- 
kennzeichnet, ansonsten aber wie 
Variablen behandelt. Da »Cref« das 


& 
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Token E4hex nicht berücksichtigt, 
erscheinen die Funktionen in der 
Referenzliste als Variablennamen. 

Nachdem in GVAR das Pro- 
grammende erkannt wurde, folgt 
der Aufruf der Routine REFVAR. 
Diese besteht aus einer Schleife, in 
der für jeden Buchstaben des Al- 
phabets (der entsprechende ASCII- 
Wert steht in Register C) folgende 
Routinen aufgerufen werden: 

— BUFINI: setzt den Zeiger BUFPTR 
auf den Anfang des Buffers, 

— FINDVA: überprüft, ob für den je- 
weiligen Buchstaben in der Varia- 
blentabelle ein Eintrag vorliegt, 

— MRKEND: markiert das Ende des 
Buffers, 

— VAROUT: gibt die entsprechende 
Referenzliste aus. 

Um in der Variablentabelle einen 
Eintragzu überprüfen, wird die Rou- 
tine TABADR benutzt. Diese gibt in 
Register HLeine Adressezurück, an 


00 00 41 40 50 48 C1 04 „„ALPHA. 
00.00 00 00 00 00.00 58 
91.04.00 00.00 00.00.00 

00 47 41 4D 4D CI 04.00 „GAMMA, 
00 00.00.00 0E 00.08.04 nunusıke 
00 00 00.00 00 00 00 

45 03.02.00 00 00 00.00 ES. 

49 HE 44 45 D8 01.00 00 INDEX... 
01.00.41 32 52 41.09.04 „ARRAY. 
0 00.00.00 0 0.00 67 

02 00 00 01 08.00.0000 unnununn 
OOMOELZFSME ....Bu0. 
BF C2 F5 W BI BF CZ FS „Bud. .Bu 
381 BE C2 FS 3 81 BF 0..Bu0.. 
C2 F5 3 81 8F C2 F5 30 Bu0..Bud 
AEC2ZFSMELEEC2 „Bud..B 
FS 30 Bi 8F C2 FS 30 81 w..Bu0. 
E02 F5 30 Bi % 1A 30 „Bu0.,.0 
75 00 19 00 M0 00. BF 22 un. 47" 
MC 6F 61 64 69 BE 67 20 Loading 


E SESSSEEEBESZIHESSEEB 


Die »Cref«-Routine verändert 
ıch die Variablentabelle 


Cross-Reference CPC 464 Vers. 2.8 


Bild 5. Die Cross-Referenz-Tabelle des Beispielprogramms 


Ei 


E 
# 


se 5 Tu, m, 
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deren Stelle ein zur Berechnung der 
Variablenadresse notwendiger Off- 
set steht. Ist der Offset Null, so liegt 
kein Eintrag unter diesem Buchsta- 
ben vor. Sonst ergibt der Offset zum 
Inhalt von VARSTA addiert, gerade 
die Adresse der Variablen, die zu- 
letzt unter dem entsprechenden An- 
fangsbuchstaben in der Tabelle ein- 
getragen wurde. Vor dieser Adres- 
se steht der Offset des vorherigen 
Eintrags. Die so erhaltene Adresse 
des Variablennamens wird dann 
sortiert in den Buffer eingetragen. 
Da hierbei indirekt sortiert wird, al- 
so nur die zwei Byte großen Zeiger 
auf die Variablen gespeichert wer- 
den, reicht selbst bei einem 30 KBy- 
te großen Basic-Programm der 
Speicher des CPC voll aus. 

Beim Ausdruck der Referenzen 
wird zuerst über die jetzt sortiert vor- 
liegende Zeigertabelle der Varia- 
blenname ausgegeben. Für diesen 


Namen bereitet dann die Routine 
REFOUT alles vor, um das Pro- 
gramm Zeile für Zeile nach eben 
dieser Variablen zu durchsuchen. 
Hierbei wird die Routine INLINE 
aufgerufen, die überprüft, ob in ei- 
ner Zeile der gesuchte Name ausge- 
führt ist und gegebenenfalls die Zei- 
lennummer ausgibt. 

Nach Ausdruck der Referenzen 
wird durch die Routine GLNR die 
Referenzliste für die Zeilennum- 
mern erstellt. Hierbei hilft wieder 
die Interpreter-Routine NXTELM, 
nach deren Aufruf jetzt die Token 
lEhex und 1Dhex bearbeitet wer- 
den. Liegt eine Zeilennummer vor 
(lEhex), so wird sie direkt durch 
ZNRSTO eingetragen. Bei einer Zei- 
lenadresse wird zuerst die entspre- 
chende Zeilennummer gesucht. 
Nachdem in ZNRSTO die Zeilen- 
nummer mit der entsprechenden 
Referenzzeile in den Buffer einge- 


tragen wurde, wird diese Numme: 
mit derjenigen der vorherigen Ei 
tragung verglichen. Ist die Zeilen: 
nummer des letzten Eintrags klei: 


durchgeführt, bis die Liste richti 
sortiert ist, 

Vor Aufruf der »Cref«-Routine m 
zuerst die Zeilenbreite des 
Druckers durch WIDTH gesetzt 
werden. Der Interpreter nimmt i 
mer den Wert 132, der bei den mei- 
sten Druckern zu hoch ist. Nach Aus# 
gabe des Variablennamens werden 
ab Position 24 die Referenzzeilen 
ausgedruckt. Die Länge der Varia“ 
blennamen sollte nicht größer als 20 
sein, dasonst das Bild unschön wird. 
Mit der Escape-Taste kann der Aus- 
druck jederzeit unterbrochen wer: 
den. 


(Horst Udo Hanenber: 


rence fueı 
11@ ° (c) 1985 


198 ° BASIC-Lader fuer !REF — Cross: 
CPC 464 
Dipl.-Math. Horst Udo 


200 238 
21@ READ W$: WERT=VAL("&"+W$) :POKE J,WERT 


Refe 
L69E61 


F,F5,FE,20,30,82,06,28,CD,56,09°9  L28B41 
en A niehlentasch oe a 458 DÄTA’C3,F1,04,BE,23,30,ED,7E,E5,21,0 
: uehlenteich_2@ B,A3,85,6F,7E,CD,56,C3,E1,2B,@BAAC “ L48D4] 
Ich. S@18 Bergheim i2 - Gle ., n0m DATA ZB ans! en 
ss AS, „AS,CD,62, 
140 ° Tai.e 22 30 s auaen DzEi,18 18, NBErzaBı, BE, CD,65,62, 076," tesacı 
a L6FBEI 
150 * LE1BAI 
16@ MEMORY &9FFFSDZEILE=289: ANF=BABOG+2“ CAD721 
17a dGEENDERLAS49+2"16 55 LiBABI 
=ANF TO ENDE STEP [SFEEI 
188 SUM=9: DZEILE=DZEILE+1® [D9381 DATA IR IB IR TER TER AD TSR! ‚dB, eeı en 
198 FOR J=I TO 1419 (5@A4] ad CD,EC AB, cı 
2,CD,DD,A2,2A,12,A3,CD,77,EE,OAA4 *“ [88621 


8,27,CD,43,E7,FE,81,38,F4,28 L72Fc1 
3 SUM=SUM+WERT LEGECH 528 DÄTA'F7,FE,1E,28,07,E5,CD,FA,Al,E1,1 
22@ NEXT J 8,EC,FE,1D BAD " LDASBI 
238 READ WE:WERT-VAL C"ar Aue) ESAD2J Es pATAlEB'2S 25 1,18,D 
248 IF WERT <> SUM THEN PRINT"FEHLER IN CD,EB) jBe& ” L9SECH 
DararZenle=DZEILENEND CAFD! saa DATA 7E'S2 ce 3,C0,9 
258 NEX [B4BE] A,A2,ES 1 17A4 L2DE4] 
260 BAlL Innaaı neu CF7IEI ssa DATA 3,B6,2 
270 " a eh B,C8,E5,D1,2 B,C 1A57_' LOPERI 
= TARFRN Base: 568 DÄTA’A2,DB,E5,06,04,CD,81,A2,E1,18,E 
a BE. | a RE Be 
570 DATA'2S, 5 
290 DATA 1 »B3,AQ,21,13,AB,C3,Di,BC, BE,A 9,7E BA, 28, 15,23,D5,CD,C3, [94641 
AD, 4 00,076 Eu DATA CD, DD,A2 17E,23,E5, 
‚AB, C3,B7,A CF8281 EU rien; 
318 DATA "Sc/c1,2A, ‚si, AE, 'ED: 65, a2, 128 Dal c ft u C483E1 
D,43,E9,FE,BE,30,F9,FE,01,38,0A 149021 a 
328 DÄTA'F@,28,F3,CD,5@,AB,18,EE,21 20, [) va LBBIEI 
8,22, 1C,AS,CD,ED,A2,C3,83, i2_' c2cae1 Yun 
330 DATA ES, 2B,BE,20,FC 22,02,B0, »CD,&C,A 4 csp98J 
BATATENTES TEN BG Be ER ET Der PELon,s 709e) ! 
’ EIEBS nn } L61B81 
147701 & cpuae? 
LF6iCI Y EREIRS 
RRERLe EDCE2I 
Fa LAESSJ 
ER LAFEZI 
LA9B41 a: 
urn L4F241 
CB3D@1 
en zıa DATA E 20,0020 1289C3 


Asa DATA B1yau,CRJRESBILSZBsEBUETIDDEE,® 


Esel sı@ DATA’C9.CD,EC,, 


LAFCAI 


A2,24,81,AE,CD,65,A2,2 
sc 


MH = ICHER - Cross-Reference CRC d64 = 
Befenlaerweiterung ICRER fur den CAT da4 
1 1085 
Dipi.-Math. Harat Ude Hanı 
An Nushlenteich 20. 3010 Bergheim 12 - Giessen 
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4900 1 Nanchater Zeiger fuer Puffer a.kı? es 3500 FFEEDL« PUSH HL 
a0 zaicas 5510 LD Huren ‘ 
A29A 2AIIAS AY20 NATPIRELD Mas (BUFPTR) ’ 3 320 ine m 
Azo €5 ao Push mL so BD (Rasen nt 
Ave 23 ano im m B ZU1Ea3  Ssn0 LO HLMLINE # Kopfzelle aruchen 
B20F 2a a0 ine HL Ensıca 500 EaLı SrRoUT 
A2Ro EnsmeDBo 4940 ID DE, (BUFEND» B amıcaa m60 ID Mu maseı 1 Seltenzanl drucken 
Adha COBerF Ay7O ALL HutoDe B epreer ssr0 ar InTour 
many € ass0 vor zw seo BD A 1 Zeilenzaehier 
Aane 23er? 4900 IP NCMEHFUL 1 HENORY FULL azımaa mswo iD wne.a Kaur ein 
Rare co 5000 ver € +00 vor 
3010 ER EALL CRLF 
3020 ı Ende Buffer markieren i se20 AR cALr 
so seo 
BaN© COMmA2 3040 MAKENDI CALL NATFTR "noch Platz 5440 1 Datenbereich 
Baar Ar os Imai so 
a2mo 77 son iD una 1 AOC 28240021 Sa40 TYPEı DEFR #28.024.M00.021 \ 
am zu soro ine HL tragen ano 5670 wınmı _DEFS Zeilenretarı 
Ran2 77 sono \w una asız S000 ınıı DEFS 2 # Zailannunmer 
mass cr sos0 rer ana vas 
100. asia \ 
S110 4 Zeilenvarschun ası7 ' 
Sı20 Ası9 ‘ 
IAza coAacH SI3O CRLFI CALL LFEED asın H 
Ar (LINE) 1 Zeilanzanhier arhaahen asıc 
Inc a AsıE asraurra 
ID dIne)a a9 00 sro DErB 000 
em 1 mehr aim 56 Zeilen ? 
IR NOFFEED 1 Saltenvorsenub DEFTAD A009 BUFEND Hosb BUFINI a2sc 
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Eauı Fre 
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w sa IN.N2 Auec. 
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Fe} Hain air 
iD AB NAconP A277 
For sc NKTPTR as 
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An ©o7 \ tion 7 REFVAR aaa 
IR NZITAR RrvaRı A086 
Ber AFINRa Azaa 
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5” Tasank psoe 
ADD anzaac S400 TABokı LD A, (PPOSI TABOK ano 
AzEo FEIA San eos TerTp3 nore 
aze2 mo 520 rer nc Vernor Boc2 
AzEs cocsa2 Sam Eauı Tas Yarour Aı2o 
Rack 105 Sam IR Tan Varıye Bocı 
as veTstı aosı 
5460 1 Seltenvorachub ver AST MIDIM mcaa zum  Asız 
5.70. ZNRSTI AZOF ZNRSTO AIFa 
BEE 3E0C _SAB0 FEED LO A,soc 4 ASCIT Seltenvorchub 
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Maschinensprache-Monitor 


»Supermon 
CPC-1002« 

— Der Maschi- 
nensprache- 
Monitor 


Jeder, der das ROM 

seines Schneiders oder 

Maschinencode-Routinen 

untersuchen will, findet 
hier ein professionelles Werkzeug 
zum Abtippen. Kleine Routinen in 
Z80-Assembler können natürlich 
auch programmiert werden. 


»Supermon CPC-1002« ist ein Monitor, der neben allgemein 
üblichen Funktionen (Speicherbereiche auflisten, Inhalte än- 
dern und Maschinenprogramme starten) über einige lei- 
stungsstarke Anweisungen zum Laden, Speichern und Kopie- 
ren bestimmter Programm- und Datendateien verfügt. Viel 
Wert wurde auf möglichst einfache und schnelle Handhabung 
gelegt. Zahlreiche Befehle dienen deshalb ausschließlich der 
Fehlersuche in selbsterstellten Programmen. Breakpoints 
können gesetzt und gelöscht werden, die Inhalte der Z80-Re- 
gister werden auf Tastendruck sichtbar und können gegebe- 
nenfalls vom Anwender verändert werden. Natürlich ist auch 
ein schneller Disassembler integriert, des weiteren lassen sich 
Speicherbereiche beliebig verschieben oder mit Daten bele- 
gen. 

Eine Reihe von Befehlen sindan spezielle Eigenschaften der 
Schneider-Computer angepaßt. So kann mittels eines einzi- 
gen Kommandos zwischen verschiedenen Speicherbänken 
umgeschaltet werden. Auf diese Art und Weise kann man sehr 
einfach einen Blick ins Betriebssystem- oder Basic-ROM wer- 
fen. Auch die Analyse beliebiger Erweiterungsmodule ist mög- 
lich. Andere Befehle schalten zwischen 40- und 80-Zei- 
chen-Darstellung um oder wählen die Aufzeichnungsge- 
schwindigkeit bei Kassettenbetrieb. In Erweiterungs-ROMs 
enthaltene externe Kommandos lassen sich ebenfalls aufru- 
fen, was besonders bei Verwendung eines Disketten-Lauf- 
werks von Vorteilist. Alle DOS-Kommandos können nämlich di- 
rekt vom Monitor aus aufgerufen werden. 

Der Supermon CPC-1002 ist sowohl bei reinem Kassetten- 
betrieb (CPC 464) als auch bei Verwendung eines Disketten- 
laufwerks voll funktionsfähig. Allerdings ist der Bildaufbau spe- 
ziell an den 464 angepaßt. Alle Routinen zum Laden, Spei- 
chern oder Kopieren von Dateien sowie die »CAT«-Funktion ar- 
beiten wahlweise mit Kassetten- oder Diskettenlaufwerk zu- 
sammen. 

Weitere Leistungsmerkmale des Supermon CPC-1002 sind: 
— Aufruf von Maschinenprogrammen mit vorherigem Laden 


der Z80-Register 
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— Laden von Programmen in beliebige Speicherbereiche 
— Anzeige aller relevanten Header-Informationen beim Lad 
— Erweiterbar durch beliebig belegbaren »User Jump« 

— Hexadezimale Addition und Subtraktion möglich 

— Berechnung relativer Sprungdistanzen 

— 7/8-Bit-ASCll-Modus wählbar 

— Alle Monitor-Funktionen wahlweise auch über Drucker aus- 
zugeben. 


Bevor Sie ans Ausprobieren dieses Monitors gehen, sollten‘ 
Sie die folgende Einführung in das Arbeiten mit dem Super- 
mon gelesen haben. Bitte denken Sie immer daran, daß Sie mit 
diesem Monitor ohne Einschränkung Ihr gesamtes Schneider- 
‚System auf einer sehr Hardware-nahen Ebene in der Hand ha- 
ben. Fehlbedienungen oder Irrtümer bei der Dateneingabe‘ 
können daher leicht zum »Absturz« des Systems und damit 
zum vollständigen Datenverlust führen. 

Listing 2 ist der Basic-Lader für »Supermon CPC-1002«. Das 
Binärfeld wird ab Speicherzelle 8000 hex erzeugt und auto- 
matisch unter dem Namen »SMON.BIN« gespeichert. Listing 
1 ist das Startprogramm und muß auf der Kassette direkt vor’ 
»SMON.BIN« stehen. Nach dem Programmstart (ohne Listing 
1 mit »CALL&8000«) meldet sich der Monitor mit 

** SUPERMON CPC-1002 ** 
Copyright © 1985 by Happy Computer 

Links unter den beiden Titelzeilen erscheint das Zeichen 
»>«, gefolgt von einem Cursor als sogenanntes »Prompte- 
‚Symbol, also als Zeichen, daß der Supermon bereit ist, Befeh- 
leanzunehmen. Diese Befehle bestehen durchweg aus einem 
Zeichen, das bei den meisten Kommandos eine leicht zu mer- 
kende Abkürzung für die volle Befehlsbezeichnung ist (zum 
Beispiel »L« für »Load«). Bei einigen Befehlen genügt schon 
die Eingabe dieses Zeichens, um eine Aktion auszulösen (die 
Enter-Taste ist also nicht notwendig). Die meisten Monitor- 
Kommandos benötigen aber zumindest eine Adresse oder 
weitere Parameter. Dann wird nach dem Befehlssymbol ein 
Leerzeichen ausgegeben, und der Cursor erscheint wieder, 
um anzuzeigen, daß jetzt zusätzliche Eingaben erwartet wer- 
den. Alle Zahlenangaben müssen grundsätzlich hexadezimal 
(ohne vorangestelltes »&«) eingegeben werden — in der Regel 
vierstellig, da es sich zumeist um Adressen handelt. In einigen 
Fällen (beim Laden und Speichern von Programmen) muß 
auch ein Programmname angegeben werden, der vom Moni- 
tor mit »FILENAME ?« erfragt wird. Derartige Namenseinga- 
ben müssen immer mit der Enter-Taste abgeschlossen wer- 
den, da der Computer ja nicht voraussehen kann, wie lang der: 
Name werden wird. Im übrigen stehen bei Namenseingaben 
alle vom Basic her bekannten Editiermöglichkeiten zur Verfü- 
gung. 

Anders verhält es sich bei den (hexadezimalen) Adressen- 
und Dateneingaben. Bei diesen braucht die Enter-Taste nicht 
extra betätigt werden, sondern der gewählte Befehl wird nach 
Eingabe der letzten Ziffer sofort ausgeführt. Es werden dabei 
nur hexadezimale Zahlen angenommen und alle anderen Ein- 
gaben ignoriert. 

Falls Sie sich bei der Dateneingabe einmal vertippt haben 
sollten, können Sie den gewählten Befehl entweder durch 
Drücken von Esc oder Enter abbrechen. Der Monitor meldet 
in einem solchen Fall »NOT OK«, zum Zeichen, daß die Funk- 
tion nicht ordnungsgemäß durchgeführt wurde. Die gleiche 
Meldung erscheint, wenn ein Befehl zwar ordnungsgemäß er- 
kannt und ausgeführt worden ist, sich aber während der Aus- 
führung eine Fehlerbedingung ergab (beispielsweise, wenn 
Sie während des Ladens einer Programmdatei die Esc-Taste | 
gedrückt haben oder wenn ein Lesefehler auftrat). 

Wurde eine Funktion ordnungsgemäß zu Ende geführt, 
dann meldet sich der Monitor mit»OK« zurück. In beiden Fällen 
— also auch nach der »NOT OK«-Meldung — ist der Monitor 
sofort wieder bereit zur Ausführung weiterer Befehle. 
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Befehlsübersicht Supermon CPC-1002 


ASCII-Dump ! Bye (Monitor verlassen) 

Breakpoint setzen B RAM/ROM-Bank wählen 

Copy (Datei kopieren) ! Externes Kdo. aufrufen 

Disassembler @ CAfalog-Funktion 

Find (Bytefolgen suchen) # Drucker ein 

Go (Routine ausführen) & 40/80 Zeichen umschalten 

Header anzeigen t User Jump definieren 

Jump (Programm aufrufen) ) User Jump anzeigen 

Kill (Breakpoint löschen) O0 _SPEED 0 wählen (Kassette) 
1 


Load (Programm laden) 
Memory Dump . 
On/Off (Kass.Motorein/aus) 


SPEED 1 wählen (Kassette) 
7/8-Bit-Modus umschalten 


ZCHWIOZTrACIONnNDUOU» 


+ _ Hexadezimal addieren 
Register anzeigen “ Hexadezimal subtrahieren 
Save (Programm speichern) 1! Sprungdistanz berechnen 
Text eingeben X Spelcherbereich verschieben 
User Jump ausführen Y__ Yank (Progr, verschob. laden) 
Write (Bytes schreiben) Z _Fill (Spelcherber. belegen) 
Esc Funktion abbrechen IBASIC Basic-Kaltstart 
Enter Monitor-Warmstart Oc Monitor-Kaltstart 


Externe DOS-Kommandos (nur bei angeschlossenem Floppy-Laufwerk) 


1A ‚Aktuelles Laufwerk Ist Laufwerk A 

ıB Aktuelles Laufwerk ist Laufwerk B 

IDRIVE Aktuelles Laufwerk wählen 

IDIR Directory auflisten 

IERA Datei löschen 

IREN Datei umbenennen 

IDISC LOAD/SAVE von/auf Diskette 

IDISC.IN LOAD von Diskette 

IDISCOUT SAVE auf Diskette 

ITAPE LOAD/SAVE von/auf Kassette 

TTAPE.IN LOAD von Kassette 

MAPEOUT SAVE auf Kassette 

ICPM CP/M aufrufen (danach kann mit S-MON nicht mehr 
gearbeitet werden) 

IUSER (Von S-MON aus nicht verwendbar) 


Die Supermon-Kommandos 


Befehlsgruppe 1: Allgemeine Monitor-Kommandos 

Die Befehlsgruppe 1 umfaßt Kommandos zum Auflisten, 
Verändern und Verschieben von Speicherbereichen sowie 
zum Aufruf von Maschinencode-Programmen. Ferner ist die 
Umschaltung zwischen verschiedenen ROM/RAM-Bänken 
vorgesehen. 


ASCII-Dump (Speicherbereich als ASCIl-Zeichen listen): 

A < Anfangsadresse > — Nach Eingabe einer Adresse wird 
der Speicher-Inhalt von der gewünschten Stelle an als ASCII- 
Zeichenfolge aufgelistet. Die Inhalte der Speicherstellen wer- 
den dabei als ASCII-Zeichen interpretiert und am Bildschirm 
dargestellt. In einem Maschinenprogramm enthaltene Text- 
passagen lassen sich damit mühelos und schnell auffinden 
und identifizieren. 


‚Memory-Dump (Speicherbereich hexadezimal listen): 

M < Anfangsadresse> — Nach Eingabe einer Adresse wird 
‚der Speicher-Inhalt von der gewünschten Stelle an in hexade- 
zimaler Schreibweise (Hex-Dump) aufgelistet. Um Text- und 
Tabellen-Bereiche leichter identifizieren zu können, erschei- 
nen am rechten Rand jeder Zeile die dargestellten Speicher- 
zellen-Inhalte nochmals als ASClIl-Zeichenfolge. 


Disassembler (Speicherbereich als Z80-Mnemonics listen): 

D <Anfangsadresse > — Nach Eingabe einer Adresse wird 
‚der Speicherinhalt von der gewünschten Stelle an als Maschi- 
nencode-Programm interpretiert und in Form von Z80- 
Mnemonics (Assemblerbefehlen) aufgelistet. Um einen mög- 
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lichst umfassenden Überblick zu gewährleisten, werden zu- 
sätzlich die entsprechenden Bytes in hexadezimaler Form und 
als ASCIl-Zeichen ausgegeben. 

Da Z80-Befehle einschließlich Operand bis zu 4 Byte lang 
sein können, kann es beim D-Befehl passieren, daß die von Ih- 
nen eingegebene Anfangsadresse nicht mit dem ersten Byte 
eines Z80-Befehls übereinstimmt. In diesem Falle werden er- 
fahrungsgemäß die ersten zwei bis drei Befehle falsch disas- 
sembliert; danach hat sich der Disassembler eingependelt und 
übersetzt wieder korrekt. Wenn Sie also nicht genau sagen 
können, ob die von Ihnen angegebene Adresse genau der An- 
fang eines Z80-Befehls war, dann sollten Sie die ersten paar 
ausgegebenen Zeilen mit Vorsicht genießen. Oft empfiehlt es 
sich In solchen Fällen, mit der Disassemblierung mehrere By- 
tes vor der eigentlich interessierenden Stelle zu beginnen, um 
ein verläßliches Ergebnis zu erhalten. 

Besondere Aufmerksamkeit sollten Sie Datenfeldern, Tabel- 
len und Texten innerhalb von Maschinenprogrammen widmen, 
da der Disassembler in derartigen Programmteilen natürlich 
keine brauchbaren Ergebnisse liefern kann. Der vom Disas- 
sembler erzeugte Z80-Assembler-Code ist weitgehend kom- 
patibel zu den meisten Z80-Assemblern. Zwei Unterschiede 
sindjedoch anzumerken: Alle Zahlenausgaben des Disassem- 
blers sind hexadezimal, jedoch nicht weiter gekennzeichnet. 
Die meisten Assembler verlangen ein nachgestelltes »H« als 
Kennzeichnung für hexadezimale Zahlenwerte, vereinzelt 
auch ein vorangestelltes »$«, »&« oder »#«. Aus Gründen der 
verbesserten Übersicht werden bei relativen Sprüngen nicht 
die Sprungdistanzen, sondern direkt das Sprungziel ausgege- 
ben. 


Write Bytes (Speicherinhalte ändern): 

W <Anfangsadresse> — Mit diesem Kommando können 
Speicherinhalte geändert werden. Nach Eingabe einer Adres- 
se können beliebig viele Bytes in hexadezimaler Form einge- 
geben werden, die von der angegebenen Speicherstelle an 
abgelegt werden. Jedes Byte wird als ein Paar von Hexadezi- 
malziffern eingegeben. Nach einem eingegebenen Byte wird 
automatisch ein Leerzeichen am Bildschirm ausgegeben, um 
die Übersichtlichkeit zu wahren. 

Nach Eingabe der zweiten Ziffer eines Bytes wird dieses so- 
fortan der entsprechenden Adresse im Speicher abgelegt und 
überschreibt dabei den vorherigen Speicherinhalt. Bei Ab- 
bruch der Eingabe nach dem Tippen der ersten Ziffer bleibt 
der Speicher unverändert. Der W-Befehl wird in erster Linie zur 
Änderung einzelner Bytes im Speicher oder zur Eingabe kom- 
pletter Maschinenprogramme benutzt. 


Text (Text in Speicher schreiben): 

T <Anfangsadresse> — Mit diesem Kommando können 
Sie beliebige Texte direkt in den Speicher schreiben. Auch 
Control-Zeichen (mit Ausnahme von Ctrl-M (= CHR$(13) = 
Enter) sind erlaubt. Nach Eingabe einer Adresse können Sie 
den Text sofort direkt eintippen. 

Beachten Sie aber bitte unbedingt, daß Sie dabei direkt in 
den Speicher schreiben, das heißt jedes eingetippte Zeichen 
wird sofort im Speicher abgelegt und überschreibt die vorher 
dort stehenden Informationen. Es bestehen daher auch keine 
Editier-Möglichkeiten außer Neuschreiben fehlerhafter Passa- 
gen. Dieses Kommando ist als Hilfe zum einfachen Einfügen 
und Ändern von Texten in Maschinenprogrammen gedacht. 


Find (Bytefolgen suchen): 

F <Anfang> <Ende> <Bytei> <Byte2> <Byte3> 
<Byte 4> — Dieses Kommando sucht in einem anzugeben- 
den Speicherbereich nach Bytefolgen mit einer Länge von ma- 
ximal vier Bytes. Dazu müssen Anfang und Ende des Suchbe- 
reichs angegeben werden sowie die bis zu vier zu suchenden 
Bytes. Das erste der vier zu suchenden Bytes muß naturge- 
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mäß in jedem Falle angegeben werden, für jedes einzelne der 
drei folgenden Bytes kann auf eine Spezifizierung des Wertes 
verzichtet werden, indem die Enter-Taste betätigt wird. Statt ei- 
nes Wertes erscheint am Bildschirm für das betreffende Byte 
nur »XX«. Ein so gekennzeichnetes Byte spielt während des 
Suchvorganges die Rolle eines Jokers, das heißt es kann je- 
den beliebigen Ein-Byte-Wert repräsentieren. 

Ein Beispiel soll das verdeutlichen: Nehmen wir an, Sie woll- 
ten wissen, an welchen Stellen ein Maschinenprogramm, das 
im Speicher von 2000 bis 4000 hex steht, andere Routinen 
im Bereich AOOO bis AOFF hex aufruft. Das heißt also, Sie su- 
chen zwischen 2000 und 4000 hex alle CALL-Befehle (Z80- 
Code »CD«), bei denen das High-Byte der Adresse AO hex ist. 
Diese Befehle findet der Supermon für Sie in Sekundenbruch- 
teilen durch Eingabe von »F 2000 4000 CD XX AO XX«, wobei 
Sie natürlich statt »XX« jeweils die Enter-Taste drücken. Diese 
Eingabe findet alle Folgen aus 4 Byte zwischen 2000 und 
4000 hex, die mit »CD« beginnen und deren drittes Byte »AOQ« 
ist, Nach Eingabe des vierten zu suchenden Bytes wird der 
angegebene Speicherbereich nach passenden Bytefolgen 
durchsucht. Wird eine Übereinstimmung gefunden, so wird 
die gefundene Bytefolge samt Adresse ausgegeben und die 
Suche fortgesetzt. 


Jump (Maschinenprogramm aufrufen): 

J <Startadresse> — Dieses Kommando dient zum Aufruf 
von Maschinencode-Programmen. Nach Eingabe einer Start- 
adresse wird die an dieser Adresse stehende Routine wie ein 
Unterprogramm gestartet. Wenn das Programm keine Stack- 
Manipulation vornimmt, bewirkt ein »RETe-Befehl die Rückkehr 
zum Supermon CPC. 

Da der J-Befehl die Kontrolle vollständig an das aufgerufene 
Maschinenprogramm übergibt, ist bei der Anwendung dieses 
Befehls besondere Sorgfalt geboten. Durch fehlerhafte oder 
unüberlegte Anwendung kann es leicht zum vollständigen 
»Absturz« des Computersystems kommen. 

Im Gegensatz zum G-Befehl (GO, siehe Befehlsgruppe 2) 
wird der Monitor-Registerbereich durch das J-Kommando 
nicht verändert. 


Transfer (Speicherbereich verschieben): 

X <Blockanfang> <Blockende> <Zieladresse> — Die- 
ses Kommando dient zum Verschieben von Speicherblöcken. 
Dazu müssen drei Adressen angegeben werden. Die ersten 
beiden Adressen bezeichnen dabei Anfang und Ende des zu 
verschiebenden Speicherbereichs, die dritte Adresse be- 
zeichnet das Verschiebeziel, also die Adresse, zu der der 
Speicherbereich verschoben werden soll. 

Beispiel 1: X 3000 3100 2000 

Dieser Befehl kopiert den Speicherbereich von 3000 bis 
3100 hex (einschließlich) in den Bereich 2000 bis 2100 hex. 

Beispiel 2: X 3000 3FFF 3001 

Dieser Befehl verschiebt den Speicherbereich von 3000 
bis 3FFF hex (einschließlich) um ein Byte nach oben. Das X- 
Kommando arbeitet »intelligent«, das heißt abhängig von der 
Wahl der Zieladresse wird die Verschiebung stets so vorge- 
nommen, daß der gewählte Speicherblock unverändert über- 
tragen wird (vergleiche Beispiel 2). 


Fill (Speicherbereich mit Konstante füllen): 

Z <Anfang> <Ende> <Byte> — Der Speicherbereich 
von <Anfang> bis <Ende> wird mit einem konstanten 
<Byte> aufgefüllt. Besondere Vorsicht ist bei Anwendung 
dieses Kommandos geboten, um nicht versehentlich wichtige 
Speicherbereiche zu überschreiben. 

Beispiel: ZC000 FFFF 00 

Dieser Befehl löscht den Bildschirm, indem der gesamte 
Video-Speicher mit Null-Bytes gefüllt wird. 


Switch Bank (Speicherbank schalten): 

: <Bank-Auswahl-Adresse> — Mit diesem Kommando gib 
es keine unzugänglichen Ecken mehr in Ihrem Schneide 
Computer. Sie können jedes eingesetzte ROM- oder RA 
Modul anwählen, insgesamt bis zu 252 Speicherbänke. 
terhin können Sie mit diesem Kommando bestimmen, ob da 
Betriebssystem-ROM (Adreßbereich 0000 bis 3FFF hex) ei 
oder ausgeblendet ist, desgleichen für das obere RO! 
(Adreßbereich C000 bis FFFF hex). Im oberen ROM-Bereicl 
wird je nach gewählter ROM-Auswahl-Adresse das Bas 
ROM oder ein externes ROM oder auch ein RAM-Bereich e 
geblendet. 

Die ROM-Auswahl-Adresse ist ein Ein-Byte-Wert, der fü 
Werte von O bis 252 (00 bis FB hex) eine ROM-Bank at 
wählt. Das eingebaute Basic hat die ROM-Auswahl-Adresse 0 
das Amsdos- und CP/M-ROM im Floppy-Controller die RO! 
Auswahl-Adresse 7. Da die Adreßleitungen in der Normalkon! 
guration nicht vollständig decodiert sind, werden beide ROMe 
auch unter anderen Adressen eingeblendet. Die ROM-Aus 
wahl-Adresse kann vier Werte mit speziellen Bedeutungen a 
nehmen, die aber die eingestellte ROM-Auswahl nicht verär 
dern: 


FC hex Oberes ROM ein, unteres ROM ein 
FD hex Oberes ROM ein, unteres ROM aus 
FE hex Oberes ROM aus, unteres ROM ein 
FF hex Oberes ROM aus, unteres ROM aus 


Mit ROM-Auswahl-Adresse »FF« stellen Sie den normale 
Zustand Ihres Schneiders wieder her. 

Alle Routinen können mit Enter, Esc oder der Leertaste un: 
terbrochen werden. Ein nachfolgender Druck auf Esc bricht‘ 
das Kommando ab, jede andere Taste läßt das Programm fort 
fahren. 


Befehlsgruppe 2: Debug-Kommandos 


Die Befehle der zweiten Gruppe dienen in erster Linie de 
Fehlersuche und dem Austesten von Maschinencode-Routi- 
nen. Zum besseren Verständnis dieser Befehle sollen zuvo 
zwei mit dem »Debugging« (Fehlersuche) zusammenhängen- 
de Begriffe geklärt werden: 


Breakpoint: 

Ein Breakpoint (Unterbrechungspunkt) kann auf jeden Z80- 
Maschinenbefehl gesetzt werden. Erreicht das Maschinen- 
programm während des Probelaufs diesen Punkt, dann wird 
es unterbrochen und es erscheint eine »Break«-Meldung, ge- 
folgt von der Adresse, an der die Unterbrechung erfolgte. Au- 
Berdem werden die Inhalte aller Z80-Register angezeigt, so 
daß der Programmierer sofort einen Überblick über den inter- 
nen Zustand des Prozessors bei Erreichen des Breakpoints 
hat. Der Breakpoint ist beim Supermon durch den vom Be- 
triebssystem nicht verwendeten »RST 6«-Befehl realisiert. 
Nach Eingabe der gewünschten Breakpoint-Adresse mit dem 
B-Kommando wird der ursprüngliche Inhalt dieser Adresse ge- 
rettet und anschließend der Code für den »RST 6«-Befehl ein- 
geschrieben. Der Z80-Prozessor verzweigt bei Ausführung 
des »RST 6« zur Adresse 0030 hex, wo bei der Initialisierung 
des Monitors ein Sprung zur Breakpoint-Routine abgelegt 
wurde. 

Verwenden Sie daher den »RST 6«-Befehl nicht in eigenen 
Programmen, wenn diese mit dem Supermon CPC ausgete- 
stet werden sollen. 


Registerspeicher: 
Die Breakpoint-Routine des Supermon rettet alle Primärregi- 
ster des Z80 sowie die beiden Indexregister in einem speziel- 


‚len Speicherbereich innerhalb des Monitors, den Register- 
speicher. Dieser belegt die Adressen 7110 bis 711D hex. Der 
Registerspeicher wird bei Auftreten eines Breakpoints mit den 
‚CPU-Registern geladen, desgleichen bei der Rückkehr von 
einem G-Befehl. Bei Aufruf eines Maschinencode-Programms 
mittels G-Befehl werden vor dem eigentlichen Programmstart 
die Z80-Register aus dem Registerbereich geladen. Der Regi- 
sterspeicher kann mittels R-Kommando aufgelistet werden 
‚oder per M-Kommando (zum Beispiel »M 8110«). Um den Re- 
‚gisterspeicher mit bestimmten Startwerten zu füllen, benutzen 
‚Sie bitte das W-Kommando (zum Beispiel »W 8110«). Die Regi- 
ster sind 16-Bit-weise in der Reihenfolge AF, BC, DE, HL, IX, 
IX im Registerspeicher abgelegt. 


Breakpoint setzen: 

B <Adresse> — Mit diesem Befehl kann in ein Maschinen- 
programm ein Unterbrechungspunkt (Breakpoint) gesetzt 
‘werden. Der Breakpoint muß immer auf das erste Byte eines 
Z80-Befehls gesetzt werden, da er sonst nicht die gewünsch- 
te Wirkung erzielt, sondern im Gegenteil zu unvorhersehbaren 
Ergebnissen bei der Programmausführung führen kann. Es 
kann jeweils nur ein Breakpoint gesetzt sein. Beim Versuch, 
weitere Breakpoints mittels B-Kommando zu setzen, er- 
‚scheint die Meldung »NOT Oke«. 


Kill Breakpoint (Breakpoint löschen): 
K - Das K-Kommando dient zum Löschen eines gesetzten 
Breakpoints. 


‘Go (startet Maschinenprogramm): 

G <Startadresse> — Mit dem G-Kommando wird ein Ma- 
‚schinenprogramm an der gewählten Adresse gestartet, wobei 
zuvor die Prozessor-Register aus dem Registerspeicher (sie- 
he oben) geladen werden. Damit ist es möglich, Routinen zu 
starten, die bestimmte Registerinhalte erwarten. Der Befehlist 
ebenfalls nützlich zum »wieder-starten« eines Programms 
nach Unterbrechung durch einen Breakpoint. Es muß dazu 
nur der Breakpoint mit dem K-Befehl gelöscht werden; ein an- 
schließender G-Befehl auf die Break-Adresse setzt das Ma- 
schinenprogramm dann ab der Unterbrechungsstelle mit der 
richtigen Registerbelegung wieder fort. Die gestartete Ma- 
schinencode-Routine kehrt nach einem »RET«-Befehl wieder 
‚zum Monitor zurück, wobei die Z80-Register im Registerspei- 
cher abgelegt werden. Eine eventuelle Meldung »BREAK«, 
‚gefolgt von einer Adresse und einer Auflistung der Z80-Regi- 
ster-Inhalte bedeutet, daß das gestartete Maschinenpro- 
gramm auf einen Breakpoint gestoßen ist. 


Register anzeigen: 

R-— dieser Befehl listet die Inhalte der im Registerspeicher 
festgehaltenen Z80-Register auf, wie sie vom G-Befehl ver- 
wendet werden. Eine Änderung der Registerinhalte ist über 
den W-Befehl möglich (siehe auch unter »Registerspeicher«). 


User-Jump ausführen: 

U — diese Funktion führt ein vom Anwender per (-Komman- 
do definiertes Unterprogramm aus. Das U-Kommando ist ins- 
besondere nützlich, um den Befehlssatz des Supermon zu er- 
weitern, oder um häufig gebrauchte, selbstgeschriebene Rou- 
tinen schnell und sicher aufrufen zu können. Die User-Routine 
wird sofort ausgeführt. 


User-Jump definieren: 

( <Startadresse> — dieses Kommando legt die Start- 
adresse einer Anwender-Routine zur Erweiterung des Super- 
mon-Befehlssatzes fest. Nach diesem Kommando wird beim 
U-Befehl stets die hier angegebene Startadresse angesprun- 
‚gen. Die User-Routine muß mit »RET« abgeschlossen sein und 
darf den Stack nicht manipulieren. Ist beim Verlassen der 
User-Routine das Carry-Flag gesetzt, dann wird nach dem U- 
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Befehl die Meldung »Ok« ausgegeben, andernfalls die Mel- 
dung »NOT Ok«. Um den User-Jump abzuschalten, geben Sie 
die Startadresse 0000 ein; es wird dann kein User-Jump mehr 
ausgeführt. 


User-Jump anzeigen: 

) — der augenblicklich definierte User-Jump kann mit die- 
sem Kommando angezeigt werden. 0000 bedeutet, daß kein 
User-Jump definiert ist. 


Befehlsgruppe 3: 
Laden und Speichern 


Die Befehle dieser Gruppe dienen dem Datenverkehr zwi- 
schen Computer und Disketten-Kassettenlaufwerk. Bei Kas- 
settenbetrieb muß beachtet werden, daß die Namenskonven- 
tion für Kassetten- und Diskettendateien unterschiedlich ist: 
Kassettendateien dürfen beliebige Namen mit einer Länge von 
maximal 16 Zeichen haben, Namen für Diskettendateien be- 
stehen dagegen aus maximal 8 Zeichen plus 3 Zeichen Na- 
menserweiterung (Extension). Dateiname und Extension müs- 
sen durch einen Punkt ».« getrennt sein. Gültige Disketten- 
Dateinamen sind also zum Beispiel sTEST.BAS« oder »PRO- 
GRAMM.BIN«. Die Konvention für Diskettendateinamen ist mit 
der Namenskonvention unter CP/M weitgehend identisch. 

Um Probleme bei der Übertragung speziell von Kassette zu 
Diskette zu vermeiden, werden alle Namen von Kassettenpro- 
grammen vom Supermon CPC automatisch an das Namens- 
format für Diskettendateien angepaßt. Aus sTESTPRO- 
GRAMM« wird damit sTESTPROG.RAM«. 

Dem Kassettenbenutzer sei im Hinblick auf die spätere An- 
schaffung eines Diskettenlaufwerks empfohlen, von vorne- 
herein nur Namen entsprechend der Disketten-Konvention zu 
verwenden. 

Folgende Dateitypen werden von den Schneider-Compu- 
tern unterstützt: 


00 Basic-Programm 

01  Basic-Programm (protected) 

02 Maschinensprache-Programm 

03 Maschinensprache-Programm (protected) 

04  Bildschirmdatei 

05  Bildschirmdatei (protected) 

16 Sequentielle Datei (mit OPENOUT erzeugt, kann nicht als 
Programm geladen werden) 


Load (Programm laden): 

L <Filename> — dieses Kommando dient zum Laden ei- 
nes Programmes von Kassette oder Diskette. Es wird automa- 
tisch in den gleichen Speicherplatz geladen, aus dem es abge- 
speichert wurde. Während des Ladevorganges werden allere- . 
levanten Informationen aus dem File-Header (Vorspann) ange- 
zeigt. Wenn Sie nicht sicher sind, ob das zu ladende Pro- 
gramm eventuell wichtige Daten (oder sogar den Supermon) 
überschreibt, sollten Sie das Y-Kommando verwenden. 


Yank (Programm verschoben laden): 

Y <Filename> — das Y-Kommando funktioniert weitge- 
hend analog zum L-Befehl. Allerdings wird hier das Programm 
nicht unbedingt an den Original-Speicherplatz geladen, son- 
dern kann an eine beliebige Adresse geladen werden. Dazu 
werden wiederum alle Header-Informationen ausgegeben. 
Anschließend erfragt das System mit »LOAD:« die Speicher- 
adresse, an die das Programm geladen werden soll. Das Y- 
Kommando ist besonders nützlich, wenn das zu ladende Pro- 
gramm sich normalerweise in einem ungünstigen Speicherbe- 
reich befindet, sich also beispielsweise mit dem Supermon 
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CPC speichermäßig überschneiden würde. Mit dem Y-Befehl 
kann das Programm in einem solchen Falle in einen »ungefähr- 
lichen« Speicherbereich geladen und dort analysiert werden. 
In der Regel ist es dort aber nicht lauffähig. 


Header-Informationen ausgeben: 
H— dieses Kommando listet die wichtigen Header-Informa- 
tionen zu dem zuletzt geladenen Programm auf, 


Copy (Programm kopieren): 
C — das C-Kommando kopiert das zuletzt geladene File mit 
den Parametern, wie sie im H-Kommando aufgelistet werden. 


Save (Programm speichern): 

S <Filename> <Filetypp> _<Anfangsadresse> 
<Endadresse> <Startadresse> — dieses Kommando 
dient zum Speichern von Programmen oder beliebigen Spei- 
cherbereichen auf Kassette oder Diskette. Angegeben wer- 
den müssen hierzu der gewünschte Filename, der Filetyp 
(vergleiche L-Befehl), der Speicherbereich, der aufgezeichnet 
werden soll (< Anfangsadresse> bis <Endadresse>) und 
schließlich noch die Startadresse. Die Startadresse ist die 
Adresse, ab der ein Maschinenprogramm gestartet werden 
muß (falls die zu speichernde Datei kein Maschinensprache- 
Programm darstellt, ist die Startadresse 0000). 


Catalog (Inhalt einer Kassette oder Diskette anzeigen): 

@ — das @-Kommando entspricht der CAT-Funktion in Ba- 
sic. Der Inhalt der eingelegten Kassette/Diskette wird am Bild- 
schirm aufgelistet. 


Speed 0 (Aufzeichnungsgeschwindigkeit O wählen): 

0 — das Kommando wählt eine Aufzeichnungsgeschwindig- 
keit von 1000 Baud für Kassetten-Operationen (entspricht 
»SPEED WRITE 0« in Basic). 


Speed 1 (Aufzeichnungsgeschwindigkeit 1 wählen): 

1 — das Kommando wählt eine Aufzeichnungsgeschwindig- 
keit von 2000 Baud für Kassettenoperationen (entspricht 
»SPEED WRITE 1« in Basic). 


On/Off (Kassettenmotor ein/aus): 

O0 — dieses Kommando schaltet den Kassettenmotor wech- 
selweise ein/aus. Es dient zur Feinjustierung der Kassette auf 
eine bestimmte Bandstelle. 

Externe Kommandos (DOS-Kommandos) 

ı <Kommandoname>, <Parameter 1>, <Parameter 2> 
Mit »1« können (wie von Basic aus) externe Kommandos, in er- 
ster Linie natürlich die DOS-Kommandos, aufgerufen werden. 

Ohne Diskettenlaufwerk (CPC 464) wird nur das Komman- 
do »!BASIC« unterstützt, das die Kontrolle wieder an das ein- 
gebaute Schneider-Basic abgibt. Nach diesem Kommando 
kann nicht mehr mit dem Monitor gearbeitet werden. Strings 
können übrigens direkt übergeben werden — nicht umständ- 
lich mittels Variablen, wie normalerweise bei Erweiterungsbe- 
fehlen. 

Beispiele: 

»ı ERA, NAME.BIN« löscht das File »NAME BIN« von der Dis- 
kette. 

»REN,NEUNAME,ALTNAME« benennt das File »ALTNAMEe«in 
»NEUNAMEK um. 


Befehlsgruppe 4: Verschiedenes 


Bye (Verlassen des Monitors): 

!—der !-Befehl bewirkt ein »weiches« Verlassen des Super- 
mon CPC durch einen Sprung zum Basic-Warmstart (Ready- 
u): Alle Programme und Speicherinhalte bleiben dabei 
erhalten. 


Drucker einschalten: 

# — Das #-Kommando bewirkt, daß der Drucker währen! 
der Ausführung des nächsten Monitor-Befehls zugeschali 
wird. Hierzu muß der Drucker angeschlossen und eingescl 
tet sein. Das gewünschte, mit dem Drucker zu protokollierei 
de Monitor-Kommando kann direkt im Anschluß an den #-Be- 
fehl gegeben werden. Falls die Meldung »NOT OK« erscheint 
ist der Drucker nicht richtig angeschlossen. 


40/80-Zeichen-Umschaltung: 
& — der &-Befehl schaltet zwischen 40- und 80-Zeichen- 
Modus hin und her. 


718-Bit-ASCIl-Umschaltung: 

.— der —Befehl bewirkt eine Umschaltung der Anzeige von. 
7- auf 8-Bit-ASCll-Modus und umgekehrt. Im 8-Bit-Modus 
werden alle in Auflistung vorkommenden Zeichen vom Monii 
als vollständige 8-Bit-Zeichen gelistet. Im 7-Bit-Modus wird Bl 
7 jedes Zeichens auf Null gesetzt; es ergibt sich ein 7-Bit- 
ASCII-Code. 

Der 7-Bit-Modus ist insbesondere zur Suche von Befehlsli- 
sten in Maschinenprogrammen zu verwenden, bei denen Bit 
7 einzelner Zeichen gesetzt ist, wodurch die Zeichenfolgen im’ 
8-Bit-Modus unleserlich werden. 

Bei Druckerausgabe wird ausschließlich der 7-Bit-Modus 
verwendet. 


Hex Addition: 

+ <Wert 1> <Wert 2> — dieses Kommando ermöglicht 
die Addition zweier vierstelliger Hexadezimal-Zahlen. Es ist bei 
Adressenberechnungen häufig nützlich. 


Hex Subtraktion: 
— <Wert 1> <Wert2> — dieses Kommando ermöglicht 
die Subtraktion zweier vierstelliger Hexadezimal-Zahlen. 


Relative Sprungdistanz berechnen: 

t <Sprungadresse> <Sprungziel> — Dieses Komman- 
do berechnet das »Distanz-Byte« bei relativen Sprunganwei- 
sungen aus der Adresse, an der der Sprungbefehl steht und 
der Adresse, zu der gesprungen werden soll. Das Kommando 
ist bei der Eingabe kleiner Maschinenprogramme eine häufig 
benutzte Arbeitserleichterung. Falls die Meldung »NOT OK« 
auftritt, liegt das Sprungziel außerhalb des beim Z80 mit relati- 
ven Sprüngen zu erreichenden Bereichs. 


Monitor-Warmstart: | 
Enter — die Enter-Taste ohne Befehlseingabe bewirkt einen 


Monitor-Warmstart. 


Monitor-Kaltstart 
Gtrl-C — die Tastenkombination Ctrl und C bewirkt einen“ 
Monitor-Kaltstart, also eine neue Initialisierung des Monitors. 
Ein solcher Kaltstart hilft in vielen Fällen, wo die Bildschirman- 
zeige durch nicht einwandfrei laufende Maschinenprogramme 
durcheinander geraten ist. 
(Volker Everts) 
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Listing 1. Kurz aber effektvoll: Das Startprogramm zu 
»Supermonitor CPC-1002« 


Maschinensprache-Monitor 


190 DATA 31.0.C@,CD,®,BB,CD,4E,BB,CD 14C28] 122@ DATA 82,D0,CD,ES,82,CB,28,CB,2@0,C5 [9078] N 
20 DATA FF,BB,CD,65,BC,CD,A7,BC,E,0 EAAF@I 125@ DATA CD,D,83,7E,CD,F6,81,23,1@,F9_ LBC1A] N 
39 DATA CD,15,B9,7C,32,2B,81,3A,1D,81 1297E3 1949 DATA C1,CD,FA,82,38,EF,3F,C9,CD,BD LDFO4) 
30 DATA 3D,E6,1,3C,32,FD,8@,CD,E,BE LE1163 185@ DATA 82,D8,CD,E5,82,C5,CD,D,83,E5 L[143A] 
50 DATA AF.S2,FC,80,3A,1E,81,47,4F,AF  LESCEI 1868 DATA C5,7E,CD,51,82,CD,3C,82,23,18 LBFAA1 
&8 DATA CD,32,BC,3A,1F,81,47,4F,3E,1 LESSEI 1878 DATA F6,C1,E1,CD,3C,82,7E,CD,F6,B1 [606] 
79 DATA CD,32,BC,3A,28,81,47,4F,CD,s8 L[E7ABI 1@8@ DATA 23,1@,F7,C1,CD,F4,82,38,DE,sF [31801 
80 DATA BC,11,2E,81,CD,2D,82,31,0,C8 [C186] 19890 DATA C9,CD,BD,82,D8,CD,EQ@,81,CD,ES L4EFAJ 4 
98 DATA CD,E®,81,AF,32,FC,80,3E,3E,CD [DF1@] 118@ DATA 82,C5,CD,D,83,5E,8,CD,FE,8i LE7D6] 3 
100 DATA FE,81,CD,44,82,CD,74,82,21,84 LD7F8] 1118 DATA CD,A2,82,38,4,77,23,10,F7,C1 L[4F92] h 
11@ DATA 80,4F ,25,23,7E,B7,28,F3,25,B7 £C7B8] 1128 DATA 38,EB,3F,C9,2A,8,81,CD,E®,81 [E684] f 
128 DATA 20,F6,CD,FE,81,11,7C,880,D5,7E [86161 113@ DATA D,67,85,CD,2D,82,DD L91E6] l 
13@ DATA 11,8F,81,30,3,11 [778C3 1140 DATA ‚81,CD,51,82,CD,sC [99883 5 
148 DATA LAaFAI 115@ DATA +DD)66.16,CD,4C,82 L[F9861 f 
15@ DATA [8082] 1168 DATA 56 9,2B,CD,SC L&FA2I 
168 DATA [24623 1178 DATA ‚DD D,66,1B LSSBA] I 
170 DATA tEC76] 1188 DATA „ac ,C9,CD,AB L2FBAI 
180 DATA 43,3E,85, L@9AB] 1198 DATA 11 CD,2D,82 L@rıa] 
19@ DATA 90,85,26,39,83,54,D4,8 [45021 120@ DATA Ar BC,11,0 L[E64A] 
200 DATA 87,58,83,85,42,F8,85,52, LSBBE] 121@ DATA BC,3@ ‚si,cd [18401 
210 DATA 4B,A9,86,46,BB,86,2B,78,87,2D L[@4E6]1 1228 DATA „1 16,C9,.cD L73AB] 
220 DATA 89,87,5E,93,87,55,85,87,4A,B0 L[CECCI 123@ DATA N: 38,A,DD LS5AsAl 
230 DATA 87,28,C0,87,29,09,87,30,D4,87 LF@ACI 1248 DATA 75,15,DD,74,16 BC,D8,CD LF4C®) 
240 DATA 31,DB,87,5A,E5,87,D,AD,88,5 LEE16] 125@ DATA 7D,BC,B7,C97,CD, Da,CD,E®B LECEEI 
250 DATA ®,88,4F ,74,BC,2E,2F,83,3F,88 LEF74] 1268 DATA 81,11,97,81,CD, 'D,BD,82 LAC621 
260 DATA 88,0,0,0,0,0,7,B8,0,8 EB2DE)I 1278 DATA 3@,E9,18,D5,11, 'D,2D,82 L4BS3E] 
270 DATA ® tDDBE] 1288 DATA CD,C7,82,D@,11, ‚B6,BE L7CC2I 
280 DATA ® LESC®] 129@ DATA 3@,2FAF,CD,&B, @,81,CD [C1981 
290 DATA 8 C163A] 1308 DATA " B8,82,30 LDB281 
390 DATA ® EDCB2J 131@ DATA 5 23,EB,ES [05621 
318 DATA 8 CCBB®] 132@ DATA H B,ED,57 [25261 
320 DATA 2, 13184) 1338 DATA [e) ‚D8,CD L[@D9C1 
330 DATA 20 LA9F@1 1338 DATA 9B,BC  LDSCHI 
340 DATA 2A ESB6E) 135@ DATA ’ ‚8,CD  LE99CI 
358 DATA 79 19158] 1368 DATA er ‚DD,66  L632E1 
368 DATA 28 ‚ caB18J 1370 DATA 16,DD,6E,15,DD,56,19,DD,SE,18 L[4F92] 
37@ DATA 61 43,6F,6D,78,75 LF@GEI 1380 DATA DD,46,1B,DD,4E,1A,DD,7E,12,CB LAIEC] 
380 DATA 74,65,72 ‚@,25,25,25 LDDD6] 139@ DATA 87,18,C1,C5,E5,2A,@,81,7E,FE [8588] 
390 DATA 20,56,6F ‚6 65,72,28,45,76 [C19@1 1408 DATA 20,38,1,23,11,A4,AC,D5,6,8 [64901 
408 DATA 65,72 25,25,25,8,4E EDDC&I 1418 DATA CD,8F ‚85,30,9,3E,2E,12,13,6 [D44C 
410 DATA 4F,54,28, B,8,4C,6F ‚61 L6SE21 142@ DATA 3,CD,&F,85,AF,12,7B,D1,93,E1 [C2181 r 
420 DATA 64,3A,0,53,5A,2D,48,2D,50,4E LADSCI 1430 DATA C1,47,C9,7E,B7,C8,FE,20,28,2_ [4684] 
430 DATA 43,20,20,41,20,20,42,43,26,20 L4DC4] 1440 DATA 12,13,23,18,F4,37,C9,CD,BD,82 L[1E26] | 
440 DATA 20,44,45,20,20,2@,48,4C,20,28 L27FC] 145@ DATA D8,CD,E@,81,11,AD,85,D5,ES,CD LFZAEI 
450 DATA 20,49,58,20,28,20,49,59,8,42 LIBA4] 1468 DATA 1C,86,09,F5,CD,35,86,F1,C9,CD LDDC2] ! 
460 DATA 52,45,41,4B,20,7,0,20,45,69 [@75E) 147® DATA B8,82,D8,B7,ED,52,3F,D8,44,4D L[5D801 B) 
470 DATA 6C,65,6E,61,60,65,20,3F,20,8 L[8ES2] 1488 DATA CD,BD,82,D0,CD,1A,83,38,8, LEFBC] N 
480 DATA 3A,2B,81,B7,CA,SA,BD,C3,SE,BD [9880] 14908 DATA EB,7,3,ED,B8,37,C9 ,EB,3,ED LOFAGI 
490 DATA F5,3A,86,B2,B7,20,3,F1,09,F5 [SAAB] 150@ DATA B@,C9,CD,5D,82,D@,CD,E5,82,CB TE6EAI 
508 DATA SE,A,CD,FE,Bl,SE,D,CD,FE,B1 L9BCCI 151@ DATA 20,CB,28,48,CD,D,83,CD,48,82 L@AEEI i 
510 DATA F1,C9,Eb,FF,FE,20,30,2,3E,2E LAICEI 1520 DATA L88DC] 
520 DATA FS,3A,FC,80,B7,28,23,F FE  [C144] 1532 DATA EF1781 
530 DATA D,28,C,FE,A,28 LEFEAI 1548 DATA L@ISEI ’ 
540 DATA 28,30,2,3E,2E, C&CBE] 1558 DATA [26681 
550 DATA CD,2B,BD,36 LCSEAI 1568 DATA [765] 
56@ DATA 8B,C1,F1,C B LS@6E] 1578 DATA ‚SB  L[SEEE] 
578 DATA 1 8, LFFABI 158@ DATA 13,81,2, LIAACI 
588 DATA „28 ,Cı si £C5721 159@ DATA DD.2A,17,81,FD,2A,19,81,C9,ED LDDACI 
570 DATA ‚5A,BB 9, 144461 160@ DATA 43,11,81,ED,53,13,81,22,15,81 L[69AQ] 
&00 DATA sFsF,E,F,CD, EB4AE] 161@ DATA FS,E1,22,F,81,DD,22,17,81,FD LBBF2] 
#1@ DATA „FE»A,S8,2,C6,7 (97781 162@ DATA 22,19,81,C#,CD,35,86,E1,25,CD [3660] 
628 DATA „81,69,CD,8A,BB,cD [98881 163@ DATA E9,81,11,C1,81,CD,2D,82,CD,4C [51761 
630 DATA 6,BB,FS,CD,8D,BB,F1,C9 CD, CAB461 1648 DATA 82,CD,65,86,03,7C,80,CD,E®,81 [8778] 
640 DATA 82,FE,61,D8,FE,7B,D8,D6,20,0C9 [2650] 1658 DATA CD,E9,81,11,9D,81,CD,2D,82,CD L8QACI 
#58 DATA CD,74,82,FE,FC,CB,FE,D,C8,D& [SE6@1 1648 DATA EB,81,3A,F,81,6,8,4F ,3E,50 L9EEEI 
#60 DATA 30,38,F3,FE,A,38,B,D6,7,Fl LöSFc) 167@ DATA CB,21,CE,8,CD,FE,81,18,F5,CD LED64] 
#78 DATA 18,30,E9,FE,A,SF,38,E4,F5,CD C4DD@] 148@ DATA 3C,82,3A,18,81,CD,51,82,21,11 LCFDEI t 
s8@ DATA 5A,82,F1,C9,CD,5C,82,CD,80,82 L[SD2E] 169@ DATA 81,6,5,56,23,56,23,0D,36,82 1C240] 
690 DATA D®,C5,7,7,7,7,4F ,CD,88,82 156481 17@@ DATA EB,CD,AC,82,EB,18,F2,0D,&0,81 L[4FC4] ‚ 
700 DATA 30,2,81,37,C1,C9,CD,BD,82,08 19594) 1718 DATA 1137!09,24 5  L[D6281 
71@ DATA EB,CD,A2,82,08,67,CD,A5,82,6F L[ASSAI 172@ DATA 81,77 „22, [6148] 
72@ DATA C9,21,A4,AC,3A,2B,81,B7,28,5 L[SC7C] 1730 DATA 9,C0,58,82,D8,87,ED,52 19698] 
73@ DATA 21,8A,AC,36,8,CD,D6,81,D08,E5 LA9AZI 178 DATA '3,44,4D,21,21,81,C5,CD L[D324] 
740 DATA AF,6,FF,A,BE,23,20,FB,E1,57 EBC&B] 175@ DATA 1,D8,DD,21,21,81 CD 145721 
750 DATA C9,3A,FC,88,6,18,B7,C0,3A,FD LBFCB1 1768 DATA 'D,7E,0,57,68,DD,7E,1 E2BDE) 
760 DATA BM,F „DO ,b,0,09 Ch, 9,BE,SE tgase] 1778 DATA »37,E8,ES,FD,El,CD,F4,82 LACEAI 
H COE 1 TA 3F,D8,DD,7E,2,B7,28,8,DD,7E [9808] 
780 DATA FC,2@,EF,Cb,58,82,FE,F [87A6J 1798 DATA BE,8,20,£3,DD,7E,4,B7 [24601 4 
778 DATA C9,CD,E@.81.CD.4C,82.CD.3C.82 L1B6C] 180@ DATA 28,8,DD,7E,5,FD,BE,1,20,D5 La24E1 
808 DATA CD,SC,82,C9,7C,BA,C®,7D,BB,C9 L[F198] 181® DATA DD,7E,6,87,28,8,DD,7E,7,FD 15941 
81@ DATA SE,FD,CD,6@,85,AF,CD,60,85,CD L&D7EI 1828 DATA BE,2,28,C7,2B,CD,4C,82,CD,3C L[S573E] 
820 DATA E®,81,C3,64,C0,3A,F7,81,EE,80 LBBFA] 1830 DATA 82,7E,CD,51,82,23,7E,CD,51,82 LBi4E] 
838 DATA 32,F7,81,37,C9,3A,FD,88,3D,28 L[7BE2] 184® DATA FD,7E,1,00,51,82,FD,7E,2,0D L@B@B] f 
840 DATA 2,3E,2,52,FD,80,CD,E,BC,57 LF&EB] 1850 DATA 51,82,CD,E0,81,18,A6,6,4,36 [2F38] 
850 DATA C9,3E,1,32,FC,B0,Ch,2E,ED,sFE L7SF61 1860 DATA FF,25,CD,5C,82,CD,80,82,50,1B [3178] 
860 DATA D@,3E,D,CD,2B,BD,E1,C3,5F,80 L[5D88] 1878 DATA 7.7,7,7,E6,F0,77,CD,80,82 £D8741 
870 DATA CD,A2,82,DÖ,FE,FC,38,6,4F CD [2416] 1888 DATA 38,7,B6,77,23,18,E4,37,C9,FE LABCEI 
880 DATA F,B9,57,69,F,F5,DE,9,B9,Fi C4B49) 1898 DATA FC.CE,.SE,B,CD,FE,BI,FE/FC,CB, LFOECI 
870 DATA F5,D4,6,B9,Fi,F,FS,DC,3,B9 (E13@J 190@ DATA SE,58,CD,FE,Bl,CD,FE,81,2B,36 LFBDBJ 
900 DATA F1,D4,8,B9,37,C9,CD,3C,82,35E ECABCI 1918 DATA 8,.23,18,£2,C0,B8,82,D8,19,CD L[DGECI 
#18 DATA FF,32,E8,B4,CD,C7,82,D8,78,B7 LFS56] 1928 DATA 7D,87,CD,4C,82,37,C9,CD,3C,82 L[E9A2] 
92® DATA CB,ES,48,6,8,3&,2C,ED,Bi,E2 147581 1938 DATA ‘co, [C7@EI 
338 DATA EDAEZ] 1948 DATA 2,EB,D®,B7,ED,52,18,E2,CD L[BSC6] 
240 DATA A,B1,23,BE,28,15, L65CA] 1950 DATA B8,82,D0,B7,ED,52,2B,2B,7( CCDCEI | 
75@ DATA 81,CD,CA,83,58,B, LB3@8] 196@ DATA FF,28,2,B7,CQ,AD,E6,80,C0 1C5581 E 
968 DATA FD,21,5,81,CD,CA, L[9DF8] 197@ DATA 7D,87,7D,CD,51,82,37,C9,C L91CCI p 
770 DATA D4,BC,D1,D0,7B,CD,1B LCCEAI 1980 DATA 82,D8,E9,CD,E0,81,24,29,81,7C L[D674] 
200 DATA FD,S6,B,PE FD 75 i2FD, 78,2 LereB] 
998 DATA IC,FD,ES,E3,DD,75,8,DD,74, 480 
1000 DATA E1,25,23,FD,34,0,7E,B7,CH,FE L[C824] Listing 2. »Supermonitor CPC-1002« erlaubt Einblicke in 
12818 DATA 2C,20,F5,36,8,25,37,C9,CD,BD [A9D61 jede Maschinencode-Routine | 


Sönderäeit Seineider PAARPYMG 
EonirUTeR 


B5,C8,37,E9,CD,BD,82,D8,22,29 LES9AJ DATA SE,2C,40,6C,44,20,28,40,27,2C LBBDAJ 
81,37,C9,CD,3C,82,2A,29,81,CD [2C58) DATA 5E,69,4E,43,20,5E,69,4 [E90 
4C,82,37,09,3E,19,.21,4D,1,18 LE6BEI DATA 48,64,45,43,20,48,6C,44, LFB9CI 
5,3E,32,21,A7,0,CD,68,B6,537°_ [40561 DATA 2C,2A,64,41,41,64,52,20,5A,2C L[B6E6] 
c9,CD,B8,82,D8,B7,ED,52,5F,D@ TOBES] DATA 2B,61,44,44,20,5E,2C,5E,6C,44 [D6@BJ 
CD,A2,82,EB,13,4F,71.23,1B,7A L[6F5AJ DATA 28,5E,2C,28,40,29,64,45,43,20 L76A81 
53,28,F9,37,C9,CD,BD,82,D@,CD LC&B61 DATA SE,69,4E,43,20,4C,64,45,43,20 [2EDAI 
FA,82,3F,D8,CD,D,83,11,8,AD L[28B81 DATA 4C,6C,44,28,4C,2C,2A,63,58,4C LFF1CI 
ED,53,2C,81,E,8,CD,3,89,FD [75581 DATA 6A,52,20,4E,43,2C,2B,6C,44,20 L[70FA] 
21,A4,AC,FE,DD,28,4,CB,C1.18 LE72E1 DATA 53,58,2C,40,6C,44,20,28,48,27 L[57A8] 
Fi,FE,FD,20,4.CB,C9,18,E9,FE [D68C1 DATA 2C,41,69,4E,43,20,53,50,69,4E [S52D4] 
ED,28,68,FE,CB,CA,BA,88,CB,7F L[8F263 DATA 43,20,21,64,45,43,20,21,6C,44 L[CAsEI 
20,30,CB.77.2@,8,11,E6,84,CD_ L[D@B21 DATA 28,21,20,2R,73,43,46,64,52,20 L[&4AB1 
1B,89,18,BF,11,02,84,47,CD,62 [4E50] DATA 43,2C,2B,61,44,44,20,5E,2C,53 LF@DAI 
SA,FD,36,0,20,FD,23,EB,78,F Cı7Aa] DATA 50,6C,44,20,5E,2C,28,40,29,64 LFEDBI 
F,F,CD,78,8A,FD, 36, 8,2C,FD 18394] DATA [3D881 
23,78,CD,78,8A,CD,AC,87,18,9B [F&A21 DATA [D59C] 
LAs7AJ DATA aE (82D41 
LEA241 DATA Er} E16BCI 
15274) DATA 5A 138021 
[42863 DATA 4C,20,4E,54,20,40,70,55,53,48 L[&DE2] 
89 LDAABI DATA 20,42,43,61,44,44,20,2A,72,53 LSF7@1 
D6,40,38,18, 1373AJ DATA 54,20,30,72,45,54,20,54,72,45 [5180] 
B,D6,68,38,D, t8D421 DATA 54,6A,50,20,5A,2C.40,78,63,41 LEEC2] 
120761 DATA AC,4C,20,54,2C,48,63,41,4C,4C [A914] 
8A,C3,1,88,CD,3 1B584) DATA 20,40,61,44,43,20,24,72,53,54 LED76] 
28,17,78,11,C5,8A 165181 DATA 20,31,72,45,54,20,4E,43,70,4F LC7AA] 
7,CD,8F 8A, 78,CD, EFZA2I DATA 50,20,44,45,6A,50,20,4E,43,2C L[6QBA] 
AC,89,C3,1,88,11, C8CEBI DATA 48,6F,55,54,20,2A,2C,41,63,41 LDSC6] 
17,E6,3,5D,CD, CAD783 DATA 4C,40,20,4E,43,2C,48,78,55,53 LF6ECI 
F,E6,7,06,30,FD,77,8, 182301 DATA 48,20,44,45,73,55,42,20,2A,72 [9686] 
FD,36,8,2C,FD,23, 78, 19928) DATA 53,54,20,32,72,45,54,20,43,65 L[6E6B1 
EB,CD,AC,89,C3,1,88, 7 147441 DATA 58,58,64,50,28,43,2C,40,69,4E L[DIDC] 
ES,24,2C,B1,FE,20,35,2E £BDC23 DATA 20.41,2C,24,63,41,4C,4C,20,45 L&FC6l 
77,23,22,2C,81,E1,CD,51 LFBGEI DATA 2C,40,78,73,42,43,28,24,72,53 LC7AA] 
C9)EB,47,57,28,8,23,7E,FE,50 [F714] DATA 54,20.33,72,45,54,20,50,4F,78 L[808A1 
38,FA,10,F8,7E,FE,7B,20,5,CD L[493E] DATA 4F,50,20,5E,64,50,20,50,4F,2C L[S7FE] 
57,84,18,7A,D6,28,6,5,FD,77°_  LAC&CI DATA 40,55,58,20,28,53,50,29,2C,5E LiFC4] 
8,FD,23,23,3,7E,FE,28,30,6A CDB64] DATA &3,41,4C,4C,20,5@,4F,2C,48,7@ L[72E21 
FE,26,26,F0,FD,77,8,FD,25,18 L2AE@I DATA 55.53,48,20,5E,61,4 [7408] 
F9,FD,28,FD,77,8,FD,23,23,7E [5052] DATA 72,53,54,20,34,72,45,54 ECA64] 
FE,60,30,52,FE,5E,28,44,FE,21 L9FS58] DATA 45,6A4,58,28,28,5E ‚50,28 LF4CA] 
28.45, FE,2A.28.12,FE.2B,28,1A [C64C] DATA 58,45,2C,40,65,58,20,44,45,2C LESAC] 
FE,40,2@0,E1,EB,FD,77,0,FD.23 L[AS26]1 DATA 48,4C,65,41,4C,4C,20,50,45,2C L[SBEB] 
CD,3,89,EB,FD,77,0,FD,25,EB LSAFE] DATA 48,78,78,4F,52,28,24,72,53,54 L[C4C6] 
CD,3,89,EB,18,CB,FD,36,0,48 LACAEI DATA 28,35,72,45,54,20,50,70,4F,5@8 L[7EBB] 
FD,23,EB,CD,3,87,EB,ES,6F,26  LF76E] DATA 28,41,46,64,50,20,50,2C,4@,64 L[CB94] 
0,7,30.2,26,FF,19,FD,.75,8 [9A64] DATA 49,65,41,4C,40,20,50,2C,408,70 L975C8] 
FD,23,7C,E1,18,AD,CD,11,8A,.18 [10961 DATA 55,53,48,20,41,46,6F,52,20,2A [17B8] 
A8,CD,2C,84,.18,A3,FD,36,8,8 ESAA4] DATA 72,53,54,20,36,72,45,54,20,4D LCDAQI 
FD,21,A4,AC,CD,5C,82,34,86,B2 [BDB®] DATA 6C,44,20,53,50,2C,5E,6A,50,20 LD7D6] 
FE,18,38,F6,FD,7E,0,FD,23,B7 [7530] DATA 4D,2C,40,65,49,63,41,4C0,40,28 LFDECI 
28,2C,FE,40,28,F,FE,2A,28,1A L[BABCI DATA 4D,2C,40,78,65,50,20,24,72,53 L[@6C8] 
FE,20,30,2,3E,25,CD,FE,81,18 [9SEB] DATA E,20,42,2C,28,453 L[SCB81 
ES,FD,6E,0,FD,66,1,CD,4C,82 [sanc] DATA 29,6F,55,54,20,28,43,29,2C,42 LB@7CA] 
FD,23,FD,23,18,D6,FD,7E,8,CD L275E] DATA 73,42,43,20,48,40,2C [96D41 
51,82,FD,23,18,CC,ES,2A,2C,81 [5556] DATA „43 LOOBAI 
1,8,AD,B7 ,ED,42,EB,CD, 36,82 L21EE] DATA CFSF2I 
3A,86,B2,FE,23,38,F6,A,Cd,F6 [454A] DATA t@aDAI 
81,3,1D,20,F8,D1,09,E5,26,58  L[2ECCI DATA 28,43,29,61 » 12Cc@] 
2E,49,CB,41,20,4,26,59,CB,49 LF4DEI DATA 2C,43,61 L6DA2I 
20,4,26,AC,2E,48,FD,75,.0,FD [EZ6CI DATA [D2B8J 
23,7C,E1,C9,FD,36,8,28,FD,25 L[83F8] DATA 54,49,7B,6C,44,20,52,2C,41,69 L[94E6] 
CD,11,84,FD,77,8,FD,23,FE,A4C [5856] DATA 4E,20,44,2C,28,43,29,6F,55,54 L[CFEAI 
28,16,FD,36,8,2B,FD,23,EB,CD L[842C1 DATA 28,28,43,29,2C,44,73,42,43,28 L[@7BE] 
3,89, EB,FD,56,0,2A,FD,23,FD CSFD8] DATA 48,40,2C0,44,45,60,44,20,28,48 LODDCI 
77,8,FD,23,3E,29,09,6,4,FD [21.725] DATA 29,2C,44,45,7B,7B,69,4D,20,31 L[S68A] 
6,0, 3F,FD,23.18,F8,C9,F5.C5 L[C686] DATA 6C,44,20,41,2C,49,69,4E,20,45 L[BEE&] 
&.3,1A,FD,77,8,13,FD,23,18 c28D8] DATA 2C,28,43,29,6F,55,54,20,28,45 LECD4] 
F7,FD,36,8,28,FD,23,C1,F1,C9 [5510] DATA 29,2C,45,61,44,43,20,48,4C,2C L46E2] 
1,A5,84.32.83.BA.DD L[&C28] DATA 44,45,60,44,20,44,45,2C,28,48 LCEB®] 
FE,21,CC,2C,84,FD,77,0 LBOCA] DATA 29,7B,7B,69,40,20,32,6C,44,28 [26FE] 
FD.23.C9,B7,28,6,13,13,13,5D L9F3AEI DATA 41,2C,52,69,4E,20,48,2C,28,43 LCODEI 
2@,FA,CD,62,8A,FD,36,0,20.FD LAD22] DATA 29,6F ,55.54,20,28,43,29,2C,48 L[DDDB1 
CBBBCI DATA 73,42,43,20,48,4C,2C,48,4C,6C [2702] 
4,44,4 s [4386] DATA 44,20,28,40,27,2C,48, ‚ L1F@4] 
„41,4E,44,58.4F [CECCI DATA 7B,72,52,44,69,4E,28,40,2C,28 L[SCOE]I 
52,4F,52,20,43,50,28.52,4C.43 [76A4] DATA 43,29,6F,55,54,20,28,43,29,2C LEBD6] 
52,52,43,52,4C,20.52.52.20,53 LF@861 DATA 4C,61,44,43,20,48,4C,2C,48,4C LDF@41 
4C,41,53,52,41,53,4C,40,53.52 [B2D81 DATA 6C,44,20,48,4C,2C,28,40,29,7B L97@C] 
40,42,49,54,52,45,53,53.45,54 [BDBA] DATA 7B,7B,72,4C,44,7B,7B,73,42,43 [1328] 
4E,4F,50,6C,44,20,42,43,20,48 IDFE&I DATA 28,48,4C,2C,53,58,6C,44,20,28 LS1CC1 
6C,44,20,28,42,43,29,2C,41,69 LSCBE] DATA 48,29,2C,53,5@,7B,7B,7B,7B,69 L[S62E] 
4E,43,20,42,43,69,4E,43,20,42 [D6BB) DATA 4E,20,41,2C,28,43,29,6F,55,54 LE4EB] 
64,45,43,20,42,6C.44.20,42,2C I[DAA6) DATA 20,28,43,29,2C,41,61,44,43,20 LEDBA] 
2A,72,40,43,41,65,58,20,41.46 LDCBBJ DATA 48,4C,2C,53,58,60,44,20,53,508 L[87D61 
2C,41,46.27,61,44,44,20,5E,2C [ECD41 DATA 2C,28,40,29,6C,44,49,63,5@0,49 LS4DC] 
42,43,60,44,20,41,2C,28,42,43 IESAEI DATA 69,4E,49,6F ,55,54,49,7B,7B,7B [7368] 
29,64,45,43,20,42,43,69,4E,43 [21841 DATA 7B,6C,44,44,63,50,44,69,4E,44 [A902] 
3,28,43.60,44.28 LE78EI DATA 6F,55,54,44,7B,7B,7B,7B,6C,44 [866C1 
1,64,4A.4E LECFB] DATA 49,52,63,50,49,52,69,4E,49,52 LBFCB) 
[28041 DATA 6F,54,49,52,7B,7B,7B,7B,6C,44 [1F62] 
[53081 DATA 44,52,63,58,44,52,69,4E,44,52 LIiBAE] 
L&DBEI DATA _6F ‚54,44,52,7B,7B,7B,7B,7B,8 LBEECI 
CAFB@I MEMORY 37999 LAZE2I 
La6E83 FOR i= 32768 TO 36697:READ a$:POKE 
0 [A4D®I i,VAL("&r+aS)s NEXT i [0946] 
2C,28, 44,45 \a3,28,44 [93AC1 SÄVE"smon. bin" ‚b,&88@8,&F59 [B66EJ 
45.69 ,4E,43, 20,4 „4335,20 LAPAEI 
45,6C,44,20,45,2C,2A,72,52,41 '6D& 
6A,52,20,4E,5A,2C,2B,6C,44,20 [@E2A) Listing 2. »Supermonitor CPC-1002« (Schluß) 


> 


64,45,43,20 
2A,72,4C,41 
44,28,5E,2C.44 


SIRHER 


Tips &Tricks 


zwar jedes Programm auf Kassette überspielen, aber um eine 

B acku mu ß Diskette mit 20 (oder mehr) Files zu überspielen, muß man 
sehr viel Tipparbeit« machen. Hier finden Sie eine Routine, die 
eine ganze Diskette direkt auf Kassette überspielt. 


n | c ht te u e r 3-Zoll-Disketten kosten immer noch weit über zehn Mark. Si- 


cherheitskopien auf Kassette sind deshalb bedeutend preis- 

n günstiger als Backups auf Diskette. Das hier vorgestellte Pro- 
el gramm erlaubt Speichergeschwindigkeiten zwischen 1200 
und 4000 Baud. Je besser die Qualität der Kassetten ist, de- 

sto höher können Sie die Aufzeichnungsgeschwindigkeit wäh- 


” P) . . len. Voreingestellt sind 3600 Baud. Um damit lesesicher Ko- 
Eine Sicherheitskopie auf pien zu erstellen, muß die Bandqualitätallerdings sehr gut sein. 


11 i i Über eins sollte man sich allerdings im klaren sein. Der Zeitbe- 
Diskette ist teuer. Speichern ‚darf für ein Backup auf Kassetteistbedeutend höher als der für 


Sie Ihr Backup doch einfach _ eine Sicherheitskopie auf Diskette. 
auf Kassette! 


‚So dauert das Sichern einer ganzen Diskettenseite auch mit 
3600 Baud mehr als 10 Minuten. Doch da der Computer allein 


Mit den Befehlen sTAPE« und »DISC« ist es einfach, Daten @Glert und die Kostenersparnis sehr groß ist, wird das Pro- 
‚hen Recorder und Diskettenstation auszutauschen. Um- am NeR'Anhängefinden. 
ändlich ist es allerdings, eine ganze Diskettenseite auf Band 
Zu speichern. Mit dem Befehl »CSAVE« (unter CP/M) kann man (Thomas Arnold/Andreas Lohrum) 


rnnnRS LIFE] IF a="4" THEN CLS: !DISC:END CBC6EI 
Ba Thomas Arnold/Andreas Lohrum # L[43C2] 35 a<>"1" AND a<>"2" AND a<>"3" THEN 

Am Graben 25, 770@ Singen * [0780] 18 [C80AJ 
BR Bee herren LE9D2] 540 ıE a="3" THEN 2298 £[F672] 
MODE 2 LOCATE 11,18:PRINT "Bitte legen Sie 
LOCATE 35,18 Band und Diskette ein." [74F6] 
PRINT "BACKUP-DISC" IF a="1" THEN 598 ELSE 818 
LOCATE 13,12 Fl 
PRINT CHRE (164) +" August 1985 by Andr REM auf Band sichern 
.as Lohrum und Thomas Arnold !TAPE.OUT: IDISC. IN 
LOCATE 11, ‚20: PRINT"Druecken Sie PLAY 
REM INITIALISIERUNG und REI -CORD, dann LENTER]" 
MEMORY 16997 EE INKEY$< >CHR$ (13) :»WEND 
OPENOUT "dum" MEMORY HIMEM-1:CLOSEOU 
T shsuR 1858 


DIM dir$(63) ‚sdir# (65) EM Adressen poken 
DEFSTR a POLE 40988 ,484 
DEFINT i-n POKE 487@3,&11 
br=3680 POKE 48706 ,&21 
ü POKE 48509 ,&9E 


18 
20 
3a 
40 
sa 
52 
70 
88 
E77 
100 


REM Maschinenroutinen laden 
200 REM Sektor lesen/schreiben 
FOR i=1 TO 29 
READ a GOSUB 1260: Rem Sektor le 
FOKE 40959+i „VAL("&"+a) 


NEXT i GOSUB 177@:REM Sektor ko 
REM Speichertransf pieren 
FOR i=1 TO 12 NEXT k 

READ a NEXT 3 

POKE 40699+i „VAL("&"+a) CALL 40500 :REM Satz auf 
NEXT i Band schreiben 
Ben Satz von/auf Band lesen/schreibe NEXT i 

G0TO 430 

FOR i=ı 10.12 [4 

READ 


POKE 40499+1 „VALL"&"+a) 


REM Band auf Diskette zurueckschreib 


en 
I TAPE. IN: DISC. OUT 
LOCATE 11,28: PRINT"Druecken Sie PLAY 
„ dann LENTER]" 
WHILE INKEY$#< >CHR$ (13) :WEND 
G60T0 2128 
NEXT i REM Adressen poken 
408 CALL 490608 POKE 48988 ,%85 
oa‘ POKE 40703, .. 
REM Menue 
ELS 17A32] 
LOCATE 38,2:PRINT "BACKUP-DISC" CBAB4I 700 
LOCATE 1,4:PRINT "Bitte waehlen Sie: CALL 495900 :REM Satz vom 
” LEBB8B81 Band lesen 
LOCATE 28,6:PRINT "Diskette auf Band 4 
sichern{i1SPACE }(1)" 1[923A] Fi 18078] 
LOCATE 20,8:PRINT "Band auf Diskette 
zurueckschreiben{2SPACE } (2)" [88A2J 
LOCATE 28,12:PRINT "Programm beenden 
{2BSPACE 3(a)" LASD6J 
LOCATE 28,1@0:PRINT "Baudrate aendern 
{2BSPACE 3 (3)" 5 C4BB®]J 
LOCATE 28,14:PRINT "Eingestellte Bau 
rate vb" Baud" LaECEI Listing. Preiswerte Sicherheitskopien 
L71F0] mit »BACKDISC« 


940 GOSUB 177@:REM Sektor ko REM Sektor kopieren L9BCEI 
pieren L2BBEI 25=17000+ j#46Q8+ (k-1) #512 [SF521 
950 GOSUB 1660: REM Sektor sc ZS$=HEX$ (z5) LA@aA] 
hreiben 194681 POKE 48704 ,VAL("A"4MID$(z5$,3,2))  LF2A2I 
768 NEXT k cAC121 POKE 40705, VAL("&"+MID$(zs$,1,2))  LAB9@] 
970 NEXT 5 EF1121 CALL 48708 CBB421 
980 NEXT i CaA121 RETURN [70961 
990 GOTO 430 [05641 £ 1C@261 
1200 ' [9118] REM Directory auslesen und als Date 
1@1@ REM Data fuer Sektor lesen LCB@21 i auf Band schreiben 180701 
1828 DATA 21,1c,a® L96FAI m=PEEK (KBBSA) :POKE MBBSA,&C9:CAT:PO 
1850 DATA cd,d4,be [82341 KE &BESA,m LS6F2] 
1940 DATA 22,1d,a0 [66821 num=PEEK (43282) L7FEAI 
1050 DATA 79 159281 b=14953 CAB2AI 
1968 DATA 32,1#,a0 t51@C] FOR i=® TO 63 [8634] 
1870 DATA 21,20,a@ CcaAB] dir&(i)=STRINGF(LL," ") £77141 
108® DATA Se CDE7AI NEXT i LBA64] 
1098 DATA 23 CF4121 FOR i=@ TO num [OEF&] 
1100 DATA 56 £320E] POKE @dir#(i)+1,b-(INT(b/256) #2 
1118 DATA 23 [4604] 56) 18862] 
1120 DATA 4e EB96E] POKE @dir&(i)+2, INT (b/256) ECC181 
113@ DATA 21,30,a0 1929C1 b=b+14 L7BFEI 
1148 DATA df tB1D4] NEXT i EBA6E] 
1158 DATA Id,an.ca.84 138941 REM Directory anzeigen tE3341 
1d hl,%aßic = num 
En on 175081 IF ASCALEFTE(dir#(i),1))=0 THEN 
117® REM call &bcd4 L&DB6] 2030 t2ca83 
118@ REM Id (Kaßid),hl (Adresse sicher dirs(i)=LEFT£(dir$(i) ,B)+"."+RI 
n) tCaFEI GHT£(dir$(i) ,3) tE64A1 
119@ REM Id a,c (Romselect nach PRINT dir&(i), L6AB@I 
a) L4892] sdir$(i)=dirs(i) LABFAI 
120@ REM Id (Kadif),a CA0Bs] NEXT LFD461 
121@ REM 1d h1,%a@28 (Adresse ab der OPENOUT "!dir" [14461 
Sektornummern usw. gepoked werden) FOR j=® TO i-1 L93DC1 
17743 PRINT#9,sdir$#(3) EBS1A] 
1220 REM Id e, (hl) (Laufwerknummer NEXT 3 LAS621 
nach e) L6FABI CLOSEQUT LAFAE] 
123@ REM inc hl Lars@1 RETURN £C1941 
1248 REM Id d, (hl) (Spurnummer nac END 105841 
hd L6@7AI 2 CBC14] 
125@ REM inc hl [4834] REM Directory einlesen und auf Bild 


126@ REM ld c, (hl) (Sektornummer m schirm ausgeben LA1BCI 
it Offset nach c) L7@F8] CLS LiABEI 
127@ REM ld h1,&a038 (Bufferanfang) LA7SCI OPENIN" !dir" LEBAGI 
128@ REM rst &i8 (ruft Routine a z=@ L2D9C1 
uf) CC116] WHILE NOT EOF C15D81 


129@ REM 4 DATEN-BYTES cD2C81 z=z+1 EFDECI 
1308 [9316] INPUT#7 ,d$ EFB141 
131@ REM Data fuer Ldir [DSCBJ PRINT #8,USING"\{12SPACE I\";d$ 
1320 DATA 91,00,02 LF@S6] i CBEZEI 
133@ DATA 11,68,42 L445E1 IF z=5 THEN z=@:PRINT [68481 
1340 DATA 21,30,a8 [2BA21 WEND [36241 
1352 DATA ed,b® [9ES4] CLOSEIN [77641 
136® DATA c9 taca®] PRINT=PRINTZPRINT"Wirklich zuruecks 
137@ REM 1d bc,512 (Bufferlaenge) chreiben auf Diskette J/N ?" LAsBAI 
CBCFEI a=INKEY$sIF a="" THEN 2238 [60541 
1380 REM 1d de, 17000 (Zieladresse w a=UPPERF (a) 41081 
ird jeweils neu gepoked) 157521 IF a<>"3" AND a<>"N" THEN 2230 EFB6EI 
139@ REM id hl,Bufferanfang LE1AC] IF a="3" THEN GOTO 868 ELSE GOTO 43 
1400 REM ldir [78283 } 172081 
1410 REM ret LDF&AJ 3 197241 
1420 ' C971C9 REM Baudrate aendern 1362A1 
1450 REM Data fuer Satz Schreiben [4254] CLS [919€] 
1448 DATA Se.16 LBB9C] PRINT "Folgende Baudraten sind moeg 
1450 DATA 11,00.5a LSFAB] lich: * 128401 
1460 DATA 21,68.42 CDB68] PRINT [C7E6] 
1470 DATA cd, 9e,be 19758] FOR i=1 TO 8 219001 
1480 DATA c9 [2486] PRINT "{12SPACE 3" si dir2)4 
1490 REM 1d a,&16 (Satzkennzeichen) LL742] 90; Baud" 142161 
1500 REM 1d de.%5a0® (Laenge) [DE9B] NEXT i [B6621 
1510 REM ld h1,17008® (Anfang) ECSSEI PRINT:PRINT"Bitte druecken Sie die 
1520 REM call &be9e (Satz schreiben) LB4AEI Ziffer, die vor der gewuenschten Ba 
1530 REM ret £1378) udrate steht. 108843 
1540 ° 193221 a=INKEYfsIF a="" THEN 2368 LEC6A] 
1550 REM Data fuer Schreibgeschwindigkei n=ASC (a) C1D481 
t 112483 IF n<49 OR n>56 THEN 2368 LEECAI 
1560 DATA 21,5d.00 LECB4] nb12=INT (1988089/ ( (n-46) #120@) +0.5) 
157@ DATA Se,Qa tS8F81 LFDAEI 
1580 DATA cd,68,be LAAFAJ hb=INT (nb12/256) LAAC6] 
1590 DATA c9 To9BA1 1b=nb12-hb#256 [205C9 
160® REM 1d h1,005d (Laenge des halben POKE 48681 ,1b:POKE 486@2,hb LBD4E) 
Nullbits) t7B481 CALL 48600 [753€] 
1610 REM ld a,&a (orprueflaenge) LFDECI br= (n-46) #400 LFSIE] 
1620 REM call '%bc68 (Set Speed CAS) CISCEI G0TO 438 [SEB&I 
1630 REM ret LFD721 END [4286] 
1640 ' [C1241 
165® REM Sektor lesen/schreiben LE7821 
166@ POKE 40992,0 :REM Drive @ [10981 
1670 POKE 40993.1#5+3 :REM Track 13244] 
1680 POKE 49994 ,k+64 :REM Sektor (5DD41 
1690 CALL 40960 :REM Sektor le 
sen/schreiben LAEBCI 
1708 LOCATE 11,24 L@D&B] 
171® PRINT "Track 133541 
1720 PRINT USING "ehns5as4)s 145541 
173@ PRINT "(2 wird kopiert I" LZB6; 
an m Bares Listing. Preiswerte Sicherheitskopien 
1758 [96281 mit »BACKDISC« (Schluß) 


Tips&Tricks 


Versteckte 
Bytes 


Ein Speicherbereich, der 
auch bei Reset nicht ge- 
löscht wird, ist ideal für 
Hilfsroutinen. Im Parameter- 
bereich des Basic-Interpreters 
findet sich dafür ein freier Platz. 


Beim Schneider CPC 464 sind 512 Byte ab der Adresse 
AEB8B hex für Parameter des Basic-Interpreters reserviert. Die- 
se Parameter (für GOSUB-Aufrufe, FOR...NEXT... - und WHI- 
LE..WEND-Schleifen, Adressen von AFTER- und EVERY-Be- 
fehlen und so weiter) liegen auf einem Stapel, der mit einem 
‚Zeiger (an den Adressen BO8B und BOSC hex) verwaltet wird. 

Dieser Bereich zählt zum Betriebssystem und wird deshalb 
auch bei einem Reset nicht gelöscht. Probieren Sie einmal fol- 
‚gende Befehlsfolge aus: Mit »PRINT PEEK(&AF10)« (direkt 
nach dem Einschalten) bekommen Sie auf dem Bildschirm den 
Wert »0« ausgegeben. Mit »POKE &AF10,10« steht an dieser 
‚Stelle eine »10« (testen mit »PRINT PEEK(&AF10)«). Setzen 
‚Sie jetzt den Computer durch gleichzeitiges Drücken der drei 
Tasten Ctrl, Shift und Esc zurück. Mit »PRINT PEEK(&AF10)« 
‚bekommen Sie wieder die »10« auf den Bildschirm und nicht ei- 
ne »0«, wie nach dem Einschalten. 

Normalerweise sollte man in diesen Bereich des Betriebssy- 
stems nichts schreiben, da das zum System-Absturz führen 
kann. Der Basic-Interpreter des Schneider CPC 464 belegt 
aber nur 119 der 512 reservierten Bytes tatsächlich und so 
kann man ab der Adresse AFOO hex (bis B089 hex) eigene 
Maschinencode-Programme ablegen. 393 Bytessindalso frei 
‚für Hilfsroutinen, die erst mit Ausschalten des Computers ge- 
%scht werden. Da der Interpreter seine Parameter von unten 
her (das heißt ab Adresse AE8B hex) ablegt, ist es sinnvoll, die 
Programme möglichst weit oben in den geschützten Bereich 
zu stellen. Die letzte Adresse sollte zwischen BO80 und B089 


(Oliver Harms) 


Ein RSX-Befehl — und schon 
kann jede Routine im Spei- 
cher des Schneiders pro- 
blemlos untersucht werden. 


Wer kennt das Problem nicht? Man will eine Firmware-Routi- 
kurz ausprobieren, muß aber verschiedene Register mit be- 
immten Werten laden. Dies geht nur mit einem kleinen Ma- 
iinencode-Programm — oder mit dem RSX-Befehl »USR«. 


Als Parameter muß die Start-Adresse übergeben werden, da- 
mit die betreffende Routine ausgeführt wird. Dies kann man 
zwar auch mit dem Basic-Befehl »CALL Adresse« erreichen, 
aber dieser erlaubt esnicht, die Register desZ80 zu laden. Die 
meisten Firmware-Programme arbeiten aber in Abhängigkeit 
dieser Register, so daß es zum Ausprobieren (und Kennenler- 
nen) der Routinen wichtig ist, die Register zu manipulieren. 

Den »USR«-Befehl gibt es in zwei verschiedenen Formaten. 
Mit »USR,Adresse« wird eine Routine ohne vorheriges Setzen 
der Register abgearbeitet. Befindet sich die Adresse zwischen 
4000 und BFFF hex, so liegt das Maschinenprogramm im 
RAM, in allen anderen Fällen (0000 bis 3FFF hex und CO0O 
bis FFFF hex) im ROM. Nach Ende der Routine befindet sich 
der Computer wieder im normalen Eingabemodus. 

Mit »!USR,Adresse,A,B,DE, HL,x« werden die Register A, B, 
DEundHL zuerstmitden übergebenen Werten geladen, bevor 
die Startadresse aufgerufen wird. In Abhängigkeit von der Va- 
riablen x werden die Registerwerte nach dem Bearbeiten der 
Routine ausgegeben (x=1) oder nicht (x=0). Ein Beispiel: 
»lUSR,&BB18« wartet auf einen Tastendruck. »IUSR,&BB18,0, 
0,0,0,1« wartet auf einen Tastendruck und gibt im Register A 
den ASCII-Wert der gedrückten Taste aus. Was für Werte in den 
Registern sinnvoll sind und welche Informationen zurückgege- 
ben werden, das entnehmen Sie dem Firmware-Buch für den 
Schneider. Das Programm wird mit dem Basic-Lader installiert 
und beginnt bei Adresse A4CA hex. 


(Erik Pfeiffer) 


EEE EEE EEE er 
(ec) Erik Pfeiffer * 
Spreenweg 5, 228@ Noderstedt 1 #* 

EEE IE er Sr Fer Fr ee 

5® FOR i=1 TO 434:READ arb=b+a:NEXT:IF b 

<>49749 THEN PRINT "Fehler '"zEND 

6® PRINT"OK": RESTORE 

7@ b=&A4CA: MEMORY b-1:FOR i=b zo UABTBER 


POKE i, 
8@ DATA 1,211,184,33,119,166,195,209,188 
‚215,164,24,4,85,83,210,9, 254 ,6,40,59 
7 62,8,58 ee, 
11 166, . r 
'6,126,205,9@,187,35,15,249,201,8 
7,114,111,118,183,32,118,117,189,98,1 


ei 
90 DATA 114,32,111,1@2,32,112,97,114,97, 
199,101,116,1@1,114,115,221,126,0,50, 
123,166,221,110,1@,221,1@2,11,34,117, 
a es 
13,221 ,7. 8, 66, 
®,117,165,58,123,166,254,8,200,58,117 
‚166,229,213 
ı00'DATA 197,245,62,4,50,105,166,62,13,2 
85,90, 187,62, 18,285,90, 187,62,65,205 
,90,187,62,32,285,90,187,62,61,285,7 
41,111,38,8,245,205,112,166,2 
285,47, 166,62,18, 285,90, 
90,187,62,66,205,98,18 


[SF78] 
,61,205,90,187,193,184 

„112,166,193,184,38,8,2 
R 


LIFCCI 
CB846] 
LtiBFC] 
CE9D2] 


[5260] 
[879€] 


17B8A] 


[373E)] 


[BED] 


62, 
285,98,187, 
‚57,166, 225,205,23 
1443E1 
34205, 90,187,62; 


„96,187 ,62,61 
57,165, 225,205, 
166, 


5,168,17,1,6,205 


6,8,33,31,166,9, 
1,48,49,50,51,5 


& 


De 


39,2@5,91,166,17,25 
65,17,188,0,205,91,16&,1 


Sn 


x 
N 
u 
N 
5 
IB 
w 
x 
R 
In 
8 
5 
E) 
5 
x 


1,201,2@5,182,166,24,211,16,187,252, 
186,211,164,1 


Listing. Der Basic-Lader für »USR« 


[89521 
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Tips & Tricks 


Basic-Zeilen 


automatisch 


erzeugt 


Eine Routine, die neue 


Basic-Zeilen automatisch 


4,4 in das laufende Pro- 
gramm einfügt, ist für 


viele Zwecke praktisch und wichtig. 


EEE EEE ee rer 
‘* (c) Bernhard Straub ” 
‘*An der Tagmess 13, 760@ Offenburg® 
ELLELLELEFE EFT Eee rer 


MODE 2 
PRINT STRING$ (8@,"#"); 
PRINT STRING$ (32,"*")5 "{2SPACE >P U T 
L I N E(ZSPACE 3"; STRINGS(S1,"#"); 
PRINT STRING$ (80, "#")5 

PRINT STRING$ (28, "#"); "(2SPACE > (c) 1 
985 by BERNISOFTIZSPACE }"STRING$ (27 

“u, 

PRINT STRING$ (88, "=") 

PRINT"RSX Basic-Befehl PUTLINE zur" 
schen Programmzeilen" 
BRINT"Generierun 


148 PRINT 


PRINT"Basicloader erzeugt Maschinenc 


ode. 
168 PRINT"Startadresse: &A400{SSPACE )En 


dadresse: &A49G" 
PRINT 


18@ PRINT"Befehlsformatı" 


PRINT" IPUTLINE ‚<Zei lennumser > ‚&<8tri 


PRINT "Bitte nicht 
ncode wird gepokt!!! 
FOR adre: uA4OB TO &A4BD 
READ mc# 

me=VAL ("&"+mc$) 
pruef=pruef+mc 

POKE adresse,mc 


NEXT 
IF pruef<>16136 THEN PRINT "Sie habe 
n leider einen Fehler beim Abtippen 
jemacht, bitte ueberpruefen!":END 

“ N 


stoeren, Maschine 


29@ PRINT "Alles okay! ":PRINT 


INPUT "Wollen Sie den Maschinencode 

abSAVEn ? (j/n) "‚frages 

IF UPPER$ (frage#)<>"J" THEN END 

an Epen che Geschwindigkeit ? (8/1 
"‚geschw 

1,9 chw<>@ AND geschw<i>i THEN S0TO 


3 
SPEED WRITE g 


„ED,B@,AF,12,21,5A,B 
B8,C8,21,3A,BD,36,C 


F,23,36,98 
DATA’ A4,22 
E,C3,8B,DD 


CF184] 
L6BBA 
LEF9CI 
C428A] 
[BEOCI 


182401 
12782) 


LOA9AI 
C9SB6I 


tE71A] 
C47FAl 
119741 
LABFAI 
L4AFAI 
CFCA2I 
199781 
L&CARI 
LCASBI 


Listing 1. Ein Schritt in Richtung »Künstliche Intelligenz«: 
»PUTLINE« 


Der RSX-Befehl »PUTLINE« erzeugt aus einem String eine 
Programmzeile und fügt diese automatisch in die laufende 
Routine ein. Damit kann sich ein Programm selbst verändern. 
Die RSX-Anweisung braucht als Parameter nur die Zeilennum- 
mer des neuen Befehls und in einem String, die zu kreierende 
‚Anweisung. Die Syntax ist damit denkbar einfach: »IPUTLI- 
NE,Zeilennummer,String«. Zuvor muß die Routine für PUTLINE 
allerdings mit »CALL &A400« eingebunden werden. 

Der Basic-Lader aus Listing 1 installiert die RSX-Anweisung. 
Listing 2 zeigt ein Beispiel (anhand eines DATA-Generators), 
wie man den PUTLINE-Befehlsinnvoll nutzen kann. Für alle, die 
diese Routine verschieben wollen: Die Maschinencode-Be- 
fehle liegen ab der Adresse A400 hex. 

Mit dem Befehl »PUTLINE«kann man Programme schreiben, 
die sich selbst verändern. Beispielsweise könnte ein Grafik- 
Programm für allgemeine mathematische Funktionen den zu 
bearbeitenden Graphen als »DEF FN«-Befehl in das Programm 
einfügen. Die Zeilen dazu müßten so aussehen: 


100 INPUT ” Funktion f{x)=",f$ 
110 Zeile$= "DEF FNf(x)="+f$ 
120 IPUTLINE,200, Zeile$ 


Nach »RUN« steht die Funktion in Zeile 200. 
(Bernhard Straub) 


r 
18 TA maker CDBEA] 
28 "(C) 9/85 by MaLEgang, A. Jaeger [BOFFE] 
so Postfach 1731 [S5A9CI 
a" D-76888 Offenburg 1 
sa‘ Tel. 08781/78268 
+8 MEMORY &A40@-1:MODE 2:LOCATE 1 
78 LOAD" 'putline":CALL &A4 
88 PRINT: INPUT"Anfangsadr: 

"von 17808] 
90 von=von-65536# (von<®) ED1B8J 
18@ PRINT: INPUT"Endadresse(14SPACE )= ", 

is [5CA2] 
118 bis=bis-65536# (bis<®) tE28C] 
128 IF bis<von THEN LOCATE 1,12:60T0 108 CDIB: 
41 
13@ PRIN’ NPUT"1. DATA-Zeilennummer (45P 

ACE “nr [BAF2I 
148 IF nr<=41®8 THEN LOCATE 1,12:PRINT}:G 

0T0 138 tE8@4] 
15@ PRINT: INPUT"Abstand der DATA-Zeilen 

= ",ab 12D46] 
168 laenge=bis-von+i:zeilenzahl=INT (laen 

ge/18)-(laenge/1@<>INT (laenge/1@)) [4116] 
17@ DIM z$(laeng ),x#(zeilenzahl) 1B974] 
188 CLS:LOCATE 32,124PRINT"- bitte warte 

n-* [331E] 
1980 FOR i=@ TO laenge-i (B5881 
200 ze (i)="R" X$ (PEEK (von+i) „2) EBBE2] 
218 t6CE41 
228 FOR k=1 TO zeilenzahlix$(k)="DATA ": 

NEXT [8CE6] 
230 k=® [@aFıA] 
248 FOR i=@® TO laenge-i tD888] 
250 IF i MOD 18=® THEN k=k+1 [6436] 
268 IF i MOD 1@0=9 OR i=laenge-i THEN 

xs(k)=x$(k)+z$(i):GOTO 288 EFD48] 
278 xsik)ansiki+rzsti)t"," 13888] 
288 NEXT i t4F04] 
298 k=1 tE328] 
388 !PUTLINE,ab#(k-1)+nr ,@x$(k) [61A4] 
31@ IF k<zeilenzahl THEN k=k+1:60T0 308 L[BEBBI 
32@ PEN i:CLS2CLEAR:END [B36E1 
Listing 2. Mit »PUTLINE« kann der Datengenerator 
»DATAGEN« sehr einfach realisiert werden 


ENDLICH KANN fCH 
MICH »HAPPY« 
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Tips & Tricks 


Vier statt zwei 


Um vier Farben in ein Zei- 
chen zu bekommen muß 
man den Aufbau des Bild 
speichers kennen. Die Rou- 
tine »Farbenpoke« macht es einfach, 
den Bildschirm farbig zu gestalten. 


Nach dem Befehl »MODE 1« kann man vier verschiedene 
Farben gleichzeitig auf den Bildschirm bringen, mit den Basic- 
Befehlen PEN und PAPER aber nur zwei pro Zeichenmatrix 
18 x 8 Punkte). Der Befehl POKE erlaubt das direkte Beschrei- 
ben des Bildspeichers und das auch mit vier Farben in einem 
Zeichen. 

Den Zusammenhang zwischen dem Wert eines Bytes im 
Bildspeicher und der Farbe auf dem Monitor erkennen Sie am 
eichtesten mit dem Programm aus Listing 1. Wie Sie sehen, 
Segen Adressen untereinander liegender Pixelreihen genau 
2048 (800 hex) Bytes auseinander. Im Modus 1 werden zwei 
Adressen für eine Pixelreihe benötigt. 

Ändern Sie nun die Farbe (beispielsweise mit »PEN 3« oder 
PAPER 2«) und lassen die zwei Zeilen noch einmal bearbei- 
ten, so ändern sich zwar die Werte, aber das »a« bleibt immer 
erkennbar. Am einfachsten erkennt man den Zusammenhang 
in Bild 1. Die niederwertigen Bits (0 bis 3) werden unter die hö- 
herwertigen (4 bis 7) geschrieben. Eine »1«zeigteinen gesetz- 
ten Wert an, eine »O« einen ungesetzten. Die Wertigkeit eines 
Bits berechnet sich aus der Bitnummer zur Basis 2 potenziert 
{zum Beispiel hat Bit 6 die Wertigkeit 2° = 64). Bildet man nun 
die Spaltensummen (immer wenn ein Bit gesetzt ist, dessen 
Wert addiert) und zählt diese zusammen, so hatman den Wert, 
den der Computer zur Farbinterpretation braucht. In unserem 
Beispiel bekommt das Byte den Wert 83. Mit dem Befehl »MO- 
DE 1:POKE &C000,83:L0CATE 1,2« sehen Sie in der oberen 
Iinken Ecke des Bildschirms vier Punkte in den Farben 0, 1,2 
und 3. In der Spalte a ist weder oben, noch unten ein Bit ge- 
‚setzt (ergibt Farbe O), in den Spalten b und c ist jeweils ein Bit 
{oben oder unten) gleich 1 (Farbe 1 oder 2), während in der 
‚Spalte d beide Bits gesetzt sind (Farbe 3). 

Mathematisch kann man das ganze so ausdrücken: 


Farbe 0 erscheint nur bei der Spaltensumme O 

Farbe 1 erscheint, wenn sich die Spaltensumme als ein 
Vielfaches von 16 darstellen läßt 

Farbe 2 erscheint, wenn die Spaltensumme 1, 2,4 
oder 8 beträgt 

Farbe 3 erscheint, wenn die Spaltensumme ein Vielfaches 
von 17 beträgt 


Mit diesem Wissen können Sie sehr einfach vierfarbige Zei- 
chen darstellen. Damit Sie aber nicht sämtliche Adressen und 
Werte umständlich berechnen müssen, nimmt Ihnen Listing 2 


18 MODE 1:LOCATE 1,1:PRINT "a"sPRINT [94D41 
20 FOR t=&C0@® TO &F80B STEP LBRG:PRINT 

BIN$ (PEEK (t) „8) „BIN$(PEEK (t+1) „B) NEX 

Tee 189101 


Listing 1. Im Bildspeicher sind die Farben codiert abgelegt 


10 ee 
28 ‘* (c) Thomas Droege 

sa '* Hohenzollernstr. 18 ” 
48 '* 4700 Hamm 1 * 
EEE EEE 


LIFCCI 
LCB66] 
[as8CI9 
L33FC) 
187041 


LOCATE 1,5 
"te". Pixel "33 INPUT 
+arbe: IF Yarbeid OR Farbess THEN 70 E 
LSE ON farbe+i GOTO 110,80,90,18@ 
80 s=2*(8-t):60T0 118 
98 s=2"(4-t):G0T0 11® 
100 s=2" (4-t) +2” (8-t) 
11@ wii ,i)=wil,i)+sıs=@:NEXT:S=B:FOR t=5 
TO 8:L0CATE 1,5 
128 PRINT"Farbe # t*. Pixel "33 INPUT 
farbe: IF far OR farbe>3_THEN 12 
& „ELBE ON farbe+i GOTO 168,13@,140,1 


1350 S*2- 12-4) ıcoro 168 

148 s=2" (B-t):G0TO 160 

150 s=2* (8-t) +2 (12-t) 

168 w(2,i)=w(2,1)+5:5=@:NEXT: s=@: NEXT 

170 LOCATE 1,7:PRINT"welche Koordinaten 
soll Ihr Zeichen haben ?": INPUT"x-Ko 

"nsIF x<1 OR x>48 THEN 170 


F856] 

INPUT"y-Koordinate ";yzIF y<i OR y>2 
5 THEN 188 cFaDAı 

190 MODE 1:PRINT"das Zeichen : ":sp=4915 
1+(y-1)*80+x#2-1:FOR i=1 TO 8:POKE & 
C928+ (i-1)*&800,w(1,i):POKE &C029+(i 
-1)#&800,w(2,i) NEXT 19406] 

2@@ LOCATE 1,5:PRINT"die Werte: ":FOR i=1 
TO 8:LOCATE 1,4+1:PRINT"&X"BINS(w( 
„i),8) PRINT" (2 SPACE} "w(1,i):LOCAT 
E 20,4+1 :PRINT"EX"BINS (w(2,1),8)"(2 
SPACE} "w(2,i) NEXT 

218 PRINT:PRINT"Die Speicherstellen : ": 
PRINT+FOR i=1 TO B:PRINT sp+ (i-1)*2@ 
48" {2 SPACE) "HEX$ (sp+ (i-1) #204) " {2 
SPACE}"sp+ (i-1)#2048+1"2 SPACE) "HEX 
#(sp+(i-1)#2048+1) :NEXT 


LCBCAI 
7® PRINT"Far| 


t8DACI 


ordinate 


L8C7A] 


EFFD6J 


Listing 2. Ohne viel zu berechnen, kann man mit »Farben- 
poke« vierfarbige Zeichen auf den Bildschirm bringen 


diese Arbeit ab. (Thomas Dröge) 
Spalte "EM E$ 
Bitnummer Si : 

\ Wert 0 a) 0 1 

| Bitnummer 2 u o 
Wert iR 


Bild 1. Die rechte und die linke Hälfte eines Bytes ergeben 
die Farbe für vier Bildpunkte 


Wo ist das 
Programm? 


Auf irgendeiner Diskette ist 

das Programm, das man 

sucht. Aber auf welcher? 

Mit einer sortierten Liste 
sämtlicher Dateien gehört diese 
Suche der Vergangenheit an. 


Der CAT-Befehl des Schneider wird bei diesem Listing für 
neue Aufgaben genutzt. Mit ihm lassen sich Inhaltsverzeich- 
nisse von verschiedenen Disketten lesen und sortiert aus- 
drucken. Die Programmnamen werden alphabetisch geordnet, 
können gespeichert und die Liste jederzeit aktualisiert werden. 
Im Ausdruck (auf dem Drucker oder dem Bildschirm) findet 
man zu jedem Namen die Diskette, auf der das Programm 
steht. (Werner Renziehausen) 


a 6 


. 


10 ° Sortierte CAT-Liste aller Disketten LO9BEI 
auf dem Drucker 198981 ‘ Unterprogramm - Sortieren E1F361 
20: [60521 R [E7C21 
3@ ° von Werner Renziehausen CLS: PEN 2: PRINT"{CTRL J3"3zz;* Fil 
(Juni 1985) CDB7EI es sind gespeichert" 179461 
Er. Hauptstr.32, 336@ Osterode 1 t@10E1 PRINT"£CTRL JI{CTRL 32 CPC sortiert 
sa’ [61583 Programme nach: " LAIEZI 
60 CLEAR: OPENOUT"Dummy“:MEMORY (HIMEM-1) PRINT" (CTRL 3312 SPACEI- dem Namen [58901 
:CLOSEOUT [CES6] FOR i=@ TO 1 L285E1 
7@ MODE 1 LFDFAI IF i=1 THEN PRINT"{CTRL 3212 SPACEI 
8@ CALL &BC@2: PEN 1: PAPER @: BORDER 1 IB2D41 - dem Zusatz" LOA461 
90 PRINT"(2 SPACEInaunnnuunnnneneneureee z=1:schleianz=B LaC60] 
Peree re ree rer 1D76C1 WHILE z<>@ 1362A1 
10@ PRINT"(2 SPACEI=(33 SPACEI= LF628J z=@: schleianz=schleianz+1: LOCATE 
11® PRINT"{2 SPACEI«{3 SPACEIPram: Sorti 28,7+1*2: PRINT" (";schleianz;")" [16661 
erte Liste aller(3 SPACE)* L496E1 FOR j=1 TO zz-1 er71cı 
12@ PRINT"{2 SPACEI=(9 SPACEIDiskettenfi di=INT (zeiger (j,i)): d2=INT (zeige 
les{1B SPACE)= LB828] rt3#1,1)) 1B3341 
13@ PRINT"{2 SPACEI=LSS SPACEI* C@D2E1 pi=(zeiger (j,i)-d1)*1@@: p2=(zeig 
140 PRINT" (2 SPACEHRRRSHHRRR er (j+1,1)-d2) #188 [77581 
EEE 126041 IF file$(p1,di,i) >file$(p2,d2,i) 
15@ PRINT"{CTRL JICCTRL JIÄCTRL 3212 SPA THEN z=zeiger (j,i): 
CE}Auswahl z TC9A41 zeiger (j,i)=zeiger (j+1,i) 
168 PRINT"{CTRL JICCTRL J>12 SPACEIILZ2 S zeiger (j+1,i)=z L9DCA] 
PACE}Neueingabe der Disketten tEBB81 NEXT 3 [SCBEI 
17® PRINT"{CTRL 3712 SPACEI212 SPACEIAKt WEND LAi1a] 
ualisierung der Diskettenliste 120641 IF i=® THEN FOR TO zz: zeiger (j 
18@ PRINT"{CTRL J)12 SPACEISTZ SPACEIAbS ‚1)=zeiger (j,®): zeiger (j,2)=zeiger( 
peicherung der Liste cesc21 3,@ = NEXT CBDD@J 
19@ PRINT" (CTRL J){2 SPACEIAL2 SPACEIAUS NEXT i L43121 
druck der Liste CA2CAI RETURN 142321 
2@@ PRINT"{CTRL J}{2 SPACEISt2 SPACE}Anz $ >. ” tapc2]3 
eige der Liste LCCBEI * Ausgaberoutinen der sortierten Fi 
21@ PRINT"CCTRL 3212 SPACEI6L2 SPACEILis les - Bildschirm und Drucker LBIEBI 
te der Diskettenbezeichnungen [835CJ R LOFC6I 
220 z$=INKEY$: IF z$="" THEN 228 EDFBCI aus=®:CLS:G0SUB 1580: IF zz=® THEN 60 
230 z=ASC (z$)-48 107981 SUB 1370: 60T0 1@@8 ELSE G0T0 1@®® L9B6BI 
24® IF z<i OR z>& THEN 220 ESASCI aus=8:MODE 1:IF zz=@ THEN GOSUB 1398 
25® ON z GOSUB 309,2050,1170,958,949,232 ELSE PRINT"{CTRL JICTRL II12 SPACE 
[) LACSEI }Datum: {2 SPACE}";: INPUT datms teF88] 
260 GOTO 7@ CBSF@1 IF datm$<>"" THEN datums=datm$ LF9S61 
270 ' LESC®] SOSUB 1588 TE@SCI 
288 ' Neueingabe der Disketten 169741 PRINT"{CTRL JI{CTRL 92 Drucker einsc 
290 ° EADC4I halten - Taste druecken":CALL &BB@6 [D8521 
3A CLS: CLEAR: OPENOUT"Dummy": MEMORY (HI PRINT#aus ‚CHR$ (27) ; ; CHR$ (64) ;CHR$ (27 
MEM-1) = CLOSEDUT 192281 E":SPACE$ (16) "Programmliste vom " 
31@ PRINT" ** NEUEINGABE DER DISKETTEN * # datum$; CHR$ (27) 5“ F" LSAC41 
* LD4881 IF aus=® THEN MODE 2:PEN 1:PAPER B: 
32@ PRINT" CTRL JI12 SPACE)Anzahl der zu BORDER 1:INK 1,@:INK 8,13 115541 
erfassenden [68481 IF wahl=2 THEN 2418 [63041 
33@ INPUT "(2 SPACE)Diskettenseiten: ":di PRINT#aus ‚CHR$ (27) 3 "N"3CHR$(1@) LBArcı 
scseit L45D41 1bprnt=PEEK (&BQ8B) : hbprnt=PEEK (&BQ 
348 discseit=INT(discseit): IF discseit< 8C) 15202] 
1_THEN 328 [83641 FOR j=1 TO zz EC1361 
35@ INPUT "tCTRL 3212 SPACEIDatum: ";datu di=INT (zeiger (j,wahl) )zpi=INT((zei 
ms 1C64A1 a ER FTET L9FACI 
36@ DIM file$(64,discseit,2): ",@-Name it#aus, -# (18) USING" RAR 
„I-Zusatz „‚2-Laenge [2522] 3 TECBEI 
37@ DIM zeiger (44xdiscseit,2) LFaAAI PRINT#aus,"{2 SPACE)" ;files(pi,di, 
388 zz=@® 19738] @®);"."sfilestpi,di,1)3"{2 SPACEI”; TECEAI 
39@ WHILE disc<discseit [73181 PRINT#aus USING" ##" VAL (files (pi,d 
400 z=0: disc=disc+ [52E81 1,29): 1597A1 
41@ PRINT"{CTRL J}Bezeichnung der einge PRINT#aus, "K"; SPACE$ (8) ; USING" ##"; 
legten": INPUT"Diskettenseite:";file pls LFOEBI 
$(8,disc,®) L71F8] PRINT#aus,"{2 SPACE)" ;files(2,d1.@ 
420 GOSUB 450: GOTO 608 L9FACI > 140981 
438 PEN 3: CAT: PEN 1: bloecke-® 182021 IF aus=® AND j/25-INT(5/25)=@ THEN 
448 FOR j=&9E7C TO &A67A STEP 14 [SBFA] CALL &BBO& £7D183 
450 IF PEEK(j+1)<32 THEN 568 LZEIEI NEXT:IF aus=8 THEN RETURN CA9321 
460  z=z+1 LZF@EI 1138 PRINT"(CTRL J}Ende der Liste - Weit 
470 FOR k=1 TO 8: +k LIEECI er, Taste druecken":CALL &BB@&:RETU 
488  #iles(z,disc,@)=files(z,disc,@+C AN L33E61 
HR&(PEEK (13) CABS2] 1140 CB31AJ 
298 NEXT k [B2BE) 115® ° Programmliste auf Diskette speich 
S@@ FOR k=9 TO 11: i=j+k 6 ern L6BSC1 
sı8 __file$s(z .disc,1)=filestz,disce,1)+ 1168 ° EBSIEI 
HRS C am ECAAAI 117@ MODE 1:LOCATE 1,18:PRINT"(7 SPACEID 
528 NEXT k [6182] aten-Diskette einlegen — L9AB4I 
530 files(z.disc,2I)=SIRF(PEEK(j+12)) [ES9AI 1188 PRINT"CTRL JI{CTRL 3212 SPACEITas 
548 bloecke=bloecke+PEEK(j+12) LC6F23 te druecken LO@SEI 
S55@ NEXT j [198463 1198 CALL &BBB& LFS6EI 
56® maxblocks=PEEK (L&AB9S+ (PEEK (LA7BD) #6 1288 OPENOUT"disclist.dat" L872E1 
a) -1 tCAB21 1218 WRITE#9,discseit ,zz,datums CC7B4] 
570 #ile$s(@,disc,1)=STR$ (maxblocks-bloe 1228 FOR k=8' TO discseit L21FEI 
cke) 1c17C1 1238 FOR i=@ TO VAL(files(@,k,2)) [B968]1 
580 zz=zz+z: files(@,disc,2I=STR$tz) 124381 1248 FOR 1=@ TO 2 L9C38] 
59@ RETURN 13A7C1 1258 _ WRITE#9,files(i,k,1) [55181 
&Q@ WEND L49C8] 126@ NEXT:NEXT:NEXT [18341 
612 GOSUB 649: GOSUB 720: GOTO 78 [@73C3 127@ FOR i=® TO zz [B23C1 
620 EBEBEI 1280 FOR k=@ TO 2 L&BFEI 
63@ ' Zeiger-Grundsetzung fuer die Adres 1298 _WRITE#F,zeiger (i,k) c152C1 
sierung der files 161021 13@® NEXT:NEXT 103381 
CDBB6J 1318 CLOSEOUT TAAAsI 
LAIEBI 132® LOCATE 5,2@:a$="n": INPUT" 
@ loeschen_(j/n)z "jas 186521 
P LCBF6I 1339 IF as="j" THEN b$="disclist.bak": 
678 FÜR k=® TO 2 taBA21 ERA,@b$: GOTO 1358 LEZA&I 
zeiger (i ,k)=d+p/1@8 [ase2) 1348 IF as<>"n" THEN 1328 L6EFAI 
r LSF2EI 
TACZEI Listing. Mit dieser Routine findet man jedes Programm 


*" Programmliste von Diskette einle: 
en 
neudisc=® 
MODE 1:LOCATE 1,19:PRINT"(7 SPACEID 
aten-Diskette einlegen -": PRINT"{C 
TRL JICTRL J)t12 SPACEITaste druec 
ken": CALL &BBO& 
OPENOUT "Dummy" :MEMORY (HIMEM-1):CLO 
SEOUT 
OPENIN"disclist.dat": INPUT#9,discs 
eit,zz,datums 
DIM file$(64,discseit+neudisc,2),ze 
iger (64* (discseit+neudisc) ,2) 
FÜR k=8_ TO discseit 

INPUT#9 ,file$(8,k,@) „files#(@,k,1), 
file#(8,k,2) 

FOR i=1_ TO VAL(files(0,K,2)) 

FOR 1=8 TO 2 

INPUT#9 ,file$(i,k,1) 

NEXT:NEXT:NEXT 
FOR i=® TO zz 

FOR k=8 TO 2 

INPUT#9,zeiger (i ,k) 
NEXT:NEXT 
CLOSEIN: RETURN 


" Sortierkriterium bestimmen (Name, 
‚Zusatz oder nach Disketten) 


PRINT" {CTRL JI{CTRL J) Ausgabe der 


Lis 
PRINT" {CTRL JICTRL II13 SPACEILZ 
SPACE)Nach dem File-Namen sortiert 
PRINT" {CTRL 3313 SPACEI212 SPACEINa 
ch dem File-Zusatz sortiert 
PRINT"{CTRL 3213 SPACEISt2 SPACEIUN 
sortiert wie eingegeben 

PRINT"L7 SPACE) (diskettenseitenneis 


=INKEY$: IF as=" 
Ih1=INT (VAL (a#) )-13 
ahl>2 THEN 1630 
RETURN 


THEN 1638 
IF wahl<® OR w 


Aktualisieren einzelner Disketten 
‚— Hauptteil 


IF zz=® THEN GOSUB 1398 
MODE 1 
PRINT: PRINT 

INPUT "Diskettenseite: 
IF disc#="" THEN RETURN 
FOR i=1 TO discseit 

IF disc#=fi „i,0) THEN G0TO 21 
@0: "Diskette gefunden 
NEXT 

PRINT"{CTRL J3{CTRL J}Diskette in d 
er Liste nicht enthalte, 
PRINT"£CTRL JICCTRL J)Wahlz 
PRINT"{CTRL 3312 SPACEIILZ SPACEIDi 
sketteninhalt aendern 
PRINT"{CTRL 3312 SPACEI212 SPACEIDI 
skettenliste erweitern 

{CTRL 3)42 SPACEISC2 SPACEIAN 
der Diskettenbezeichnungen 
CTRL 3312 SPACEI4L2 SPÄCEILI 
ste neu sortieren 

PRINT" {CTRL 3312 SPACEIS{2 SPACEIRU 
ecksprung ins Hauptmenue 

as=INKEY$: IF as="" THEN 1849 
a=VAL(a$): IF a<ı OR a>5 THEN 1840 
ON a GOTO 1690,2190,1918,1888,187@ 
RETURN 

IF zz=@ THEN CLS: PEN 3: PRINT" CCTR 
L_JICCTRL 9) Liste nicht geladen": 
PEN 1:_60T0 1788 

GOSUB 720: RETURN 


"disck 


Diskettenliste anzeigen 


aus=®: menue=2 
IF zz=@ THEN GOSUB 1390 

CLS: PRINT#aus,"CTRL II CTRL Jr 

IF aus=8 THEN PRINT#B,SPACES (18) ; 
PRINT#aus, "(3 SPACE)** Diskettenlis 
te ##": PRINT#aus 

PRINT#aus: IF aus=8 THEN PRINT#8,SP 
ACEF (18); 

PRINT#aus, "{3 SPACEINr (2 SPACE}Frei 
{3 SPACE)Di skettenseite":PRINT#aus 
FOR i=1 TO discseit 

IF aus=8 THEN PRINT#B,SPACE$ (18): 
PRINT#aus ‚ USING" #####"; 1: VAL (files 
8,i,1)) 5 :PRINT#aus, "K{3 SPACEI";fi 
le$ (8,1 ,0) 
NEXT: IF aus=® THEN PRINT"{CTRL I2€ 
ETRL 33 Weiter - Taste druecken": C 


LAA921 
18522] 


LACB6J 
CBB26] 
L&BBA] 


EDSEEI 
c@1B4] 
L771E1 


LDS1A] 
[6806] 


L324A] 
LF374] 
[60421 
[1624] 
L1S3E] 
19934] 
[54F6] 
LF12E] 
CBE42] 
LEC62] 
192241 


C24F2] 
[9428] 


LDB7EI 
L7C561 
[6078] 
50821 


18972] 
CCF383 


CSDFCI 
£C198] 
LE328] 


[SFB4] 
L952C1 
CC9B81 
L44BC] 
CAFBAI 
EDBFE] 
[6462] 
[3E0A] 


[3356] 
LF85A] 


CBCF6] 
LFEF2) 


13206] 
1782A1 
15048] 
C4478] 


11932] 
CASSCI 
£371A1 
L967C1 
EC3AB1 


L62F23 
LEECA] 
CBF221 
CD4DE] 
CC126] 
£870C1 
CBEB4J 
LFA@CI 
C14BA] 


LD8821 
CA9641 
LB674] 


E14F6] 
CADE@I 


CAZCCI 


Listing. Mit dieser Routine findet man jedes Programm 


ALL &BBQ6 

IF menue=1 THEN RETURN 

CLS: PRINT"{CTRL JI{CTRL J3%* Aktua 
lisierung der Diskettenliste ** 
GOTO 1788 


‘ Diskettenseite gefunden 


PRINT"{CTRL JICTRL J3 Diskette ein 
legen - Taste druecken";CALL &BBB& 
z=VAL (files (@,i,2)) 
FOR j=1 TO z 
FOR k=@ TO 1 
files (jyi,k)="" 
NEXTENEXT 
zz=22-2: z=0: disc=i 
GOSUB 430: GOSUB 648: GOTO 2050 


" Erweiterung der Diskettenliste 
CLS: PRINT"{CTRL J)t2 SPACE)Anzahl 
der neu zu erf 'nden 

INPUT "{2 SPACE skettenseiten: 
eudisc 

neudisc=INT (neudisc): IF neudisc<i 
THEN 221@ ELSE GOSUB 1408 

INPUT "{CTRL J3{2 SPACE)Datum: ";dat 
ums 

disc=discseit: discseit=discseit+ne 
udise 

WHILE disc<discseit 

z=0: disc=disc+t 

PRINT"{CTRL J}Bezeichnung der eing 


in 


elegten": INPUT"Diskettenseite:"; 
files(B,disc,D) 

GOSUB 438 

WEND 


GOSUB 640: RETURN 
} Auswahl Bildschirm oder Drucker 


CLS: PRINT" {CTRL JICCTRL JICCTRL 93 
{CTRL 3315 SPACE)Ausgabe auf Bildsc 
hirm/Drucker 

INPUT"{CTRL J3{12 SPACEI@/1LS SPACE 
Y"zaus 
aus=INT (aus): 
N o 


IF aus<® OR aus>i THE 


aus us*8: menue=i 
GOSUB 1940: RETURN 


" Ausgabe unsortiert nach Disketten 


zeile=i 
FOR i=1 TO discseit 
z=VAL (files (0,1,29) 
zhalbe=z-z\2 
le=zeile+tzhalbe+s 
s=8_ AND >65_THEN zeile=z 
PRINT#8,CHR$ (12)35:60T0 2518 


PRINT#aus:PRINT#aus 


IF aus=® THEN PRINT#aus,SPACE$ (15) 
;"Diskettenseit: sfiles(Q,i,0): 
PRINT#aus 


IF aus=8 THEN PRINT#aus,‚SPACE$ (15) 
+"Diskettenseite: "}CHR$(27); "E" 
files (@,i,@) 5CHRF(27) 5" F 
":PRINT#aus 
FOR k=i TO zhalbe 
FOR x=k TO k+zhalbe STEP zhalbe 
IF x>z THEN 2570 
PRINTHaus ‚SPACE$ (19) USING" HR"; 
x 
PRINT#aus,"{2 SPACE) "files (x,i, 
@4"."zfilesix,i,1) USING" AARR"T 
vAL(files(x,i,z 
9; :PRINT#aus, 


NEXT 
PRINT#aus 
NEXT 
PRINT#aus: PRINT#aus,SPACE$ (15); fil 
e#(®,i,1);" Bloecke frei 
IF Aus=@ THEN CALL &BBQ& 
NEXT 
RETURN 


(Schluß) 


L&C981 
LaADB] 


LAEBA] 
19B22] 
[97283 
[D&C41 
£C1241 


L91E2] 
[27071 
[B342] 
L29F21 
LTADAs] 
[C9481 
EBF32] 
L9ESEI 


ESe?el 


[BE16] 
139F@1 
15754] 
18032] 
LCBAAI 


LASFCI 
(20741 
[2156] 


119661 
CE188] 
[4026] 
CBBB4] 
CC21C] 
TAZBE] 
104201 


L99A21 
CE47A1 


L290E1 
L9ABB] 
CDF2CI 
1921A] 


187041 
C941E) 
[26£8] 
11106] 
L925C1 
CSBDC] 
L7DFCI 


L@2041 
191761 


CBFS2] 


L2D4E1 
c@184] 
[6F64] 
L27CE] 


LC41E] 


CD2B4] 
(25DA] 
LCB5@1 
ESD9EI 


LB2661 
[3852] 
LF7521 
[89961 


[ 
E 


Tips & Tricks 


Löschtaste 
für den 
Schneider 


Ein Tastendruck reicht aus, 
um den Bildschirm zu lö- 
schen und den Cursor in die 
linke obere Ecke zu setzen. 


Normalerweise wird Tab beim Schneider-Computer nichtbe- 
nutzt. Die einzige Funktion, die serienmäßig auf dieser Taste 
liegt, wurde von Schneider in seinen Handbüchern »verges- 
sen«, mit »Ctrl-Tab« wird der Einfügemodus des Bildschirm- 
Editors aufgehoben. Ein Text kann ja normalerweise nur über- 
schrieben werden, wenn die zu streichenden Buchstaben zu- 
vor mit »Del« oder »CLR« gelöscht werden. Nach »Ctrl-Tab« 
werden hingegen alle Buchstaben direkt gelöscht. Unser klei- 
nes Programm belegt die Tab-Taste in der Normalebene mit 
Cursor-Home und, falls gemeinsam mit »Shifte gedrückt mit, 
Clearscreen. (Martin Kotulla) 


a 


LF3B8] 


20 ' * (c) Martin Kotulla * [18350] 
3@ ' * Grabbestr. 9. 858@ Nuernberg 90* [7896] 
U 9 RR  LESBEI 


S® KEY 148.CHR$ (13) +"PRINT_ CHR$ (BI +CHRE( 
17)+:LOCATE 1,1"+CHR$ (13) 

60 KEY 141 ,CHR$ (13) +"CLS"+CHRE (13) 

7@ KEY DEF 68,0,140,141 

88 NEW 


Listing. Cursor-Home und Clearscreen mit einem 
Tastendruck 


Strings — 
ein sicheres 
Versteck 


Maschinencode-Programme 
in einer Zeichenkette abzu- 
M legen und mit dem Varia- 
K blen-Descriptor (@) aufzuru- 
£ fen, erlaubt eine sehr komfortable Pro- 
grammierung. 


Viele unter Ihnen kennen Strings als Speicherplatz für Ma- 
schinencode-Programme. Ist doch dort ein Überschreiben un- 
möglich. Im Listing 1 finden Sie als Beispiel eine Routine, die ei- 
nen Pfeifton ausgibt. In Assembler sieht sie so aus: 


LDA,7 
JP &BBSA (&BB5A ist die Tonausgabe-Routine) 
Da sich beim häufigen Benutzen des CALL-Aufrufs der Spel 
cherplatzbedarf für die Formel schnell erhöht, versuchen ma 
che Programmierer, dies zu umgehen, indem sie einmal die 
Adresse des Strings berechnen und im übrigen als Variable a 
geben. Wie das geht finden Sie im Listing 2. 
Diese Methode ist aber sehr gefährlich, da eine meist unver: 
mutet auftretende Garbage Collection die Strings neu ordne 
und damit die Startadresse verschiebt. Der CALL-Aufruf gel 
dann ins Leere und führt zum »Aussteigen« des Computers. 
‚Abhilfe schafft daein geradezu simpler Trick. Verstehen kanı 
ihn jeder, der den Aufbau des Variablen-Descriptors kennt. 
»PRINT @ a$« wird nämlich bekannterweise nicht die Adı 
des Strings angegeben, sondern die Adresse des zugehörk 
gen Descriptors. Und zwar in folgendem Format: 
1. Byte: Stringlänge 
2. Byte: Lowbyte der Stringadresse 
3. Byte: Highbyte der Stringadresse 
Mit »CALL @a$« würde die String-Descriptor-Adresse a 
gerufen und als Maschinencode interpretiert werden. 
Mit einem Trick kann man das umgehen. Die Stringlänge wird 
auf 195 Bytes festgelegt, was gleichzeitig den Z80-Opcode 
für den JP-Sprungbefehl darstellt. Wird der Descriptor aufget 
fen, interpretiert die CPU den Stringdescriptor als »JP String: 
Da in dem String der Maschinencode abgelegt ist, kann da 
Programm nun ordnungsgemäß abgearbeitet werden. Als Pro 
gramm sieht man das in Listing 3. 
Eine Einschränkung muß man aber dabei beachten: Da de 
Basic-Interpreter den String nach Belieben im Speicher hii 
und herschieben kann, darf die Maschinencode-Routine keine 
absoluten Adressen benutzen. So sind folgende Befehle bel 


spielsweise verboten: 

LD HL,(START+2), wobei START für die Programmstart- 
Adresse steht 

CALL $+20, $ symbolisiert den Stand des 
Programmzählers 

Absolute Sprünge und Lesebefehle aus dem Programm sind? 

hingegen erlaubt: 

CALL &BBSA 

LD HL,(&C000) 

JP & 0000 


Der Vorteil der Belegung von Strings mit Maschienprogram- 
men liegt einerseits in der schnelleren Verfügbarkeit der Pro- 
gramme (ein INPUT #9-Befehl genügt schon), andererseits‘ 
darin, daß keine Gefahr besteht, daß mehrere Maschinenpro- 
gramme im gleichen Adreßbereich zusammenstoßen. 

(Martin Kotulla) 


10 a$=CHR$ (&SE) +CHR$ (&7) +CHRF ROT) CHR ( 
&5A) +CHR$ (BB) 
20 CALL PEEK (@a$+1)+PEEK (@a$+2) #256 


Listing 1. Ein Pieps aus dem String 


LEFSCC] 
CBDBEI 


18 a#=CHR$ (RSE) +CHRF (&7) +CHRE (&C3) +CHRE 
5A) +CHR$ (&BB) 

2® adr=PEEK (@a$+1) +PEEK (@a$+2) #256 

3® CALL adr 


Listing 2. Der Platzbedarf wird geringer 


EFSCCI 
CDA42E1 
ECBECI 


er 7723 
“ * (c) Martin Kortulla * 
* * Grabbestr. 9. 8588 Nuernberg 98* 
EEE en ern 

S@ a$=STRING$ (&C3,0) 

68 FOR i=1 TO S:READ a:MID$(a$,i)=CHR$(a 
):NEXT i 


EFSBB1 
C14D41 
[78961 
LESBEI 
(49161 


CA@D®I 
LBBFCI 


L461C1 


78 DATA %3E,%07 .%C3,.25A.&BB 


82 FOR i=1 TO 2@:CAlL @a$:FOR k=1 TO 208 
zNEXT k.i 


Listing 3. »195« heißt der geheimnisvolle Code 


Tips & Tricks 


Groß, größer, 
»Dehni« 


Mit einem kleinen Maschi- 
nencode-Programm können 
Sie ein völlig neues Bild- 
schirmgefühl bekommen. 


Mit»Dehni«können Sie den Bildschirmspeicher direktbeein- 
flussen. In der Maschinencode-Routine wird mehrmals hinter- 
einander der Z80-Befehl LDIR benutzt und dadurch der Bild- 
speicher zeilenweise verändert. Die obere Hälfte wird verdop- 
pelt und die untere gelöscht. 

Der Basic-Lader aus Listing 1 erzeugt eine Maschinenco- 
de-Routine, die mit »CALL DEHNI« aufgerufen wird. Falls das 
Bild zuvor hardwaremäßig gescrollt wurde, muß erst durch eine 
MODE-Anweisung »Ordnung« in den Speicher gebracht wer- 
den. Das Demo-Programm aus Listing 2 zeigt, wie »Dehni« ar- 


beitet. (Dirk & Klaus Stockmann) 
19 rn [DAB] 
280 '**#** Dehni ####* LAB96] 
3@ '##*# 1985 by #08 [6104] 
40 '* Dirk & Klaus * 
5a ‘** Stockmann ##*# [B6D8) 
68 '** Ringstr. 7 #* t2E861 
70 '##un# 7482 wa L1SCEI 
88 '* Krauchenwies * EF758] 
U RR [82481 
120 GOSUB 258 [3DD8] 
119 ’** Demoprogramm #*#* [4056] 
128 FOR mo=2 TO ® STEP -1 E6FE4I 
13@ MODE mo: zei=28*2"mo [6618] 
148 PEN 1:LOCATE zei/2-8,25:PRINT"Drusck 
e eine er [8E981 
158 FOR a=1 [CF46] 
168 LOCATE 1, TSLPEN 9:PRINT CHR$(224); [A142] 
178 PEN 15: PRINT STRING$ (zei /2-9,CHR$(24 
3); 
180 PEN 13:PRINT" Das ist Dehni 
198 PEN 15:PRINT STRING$ (zei/2-9, 
23); 
208 PEN 9:PRINT CHR$(224) 
21® CALL &BB®S:CALL DEHNI 
228 NEXT a,mo 
230 MODE 1:PEN 1:END 
248 '** basic-lader ** 
25@ MEMORY HIMEM-64 
268 FOR i=HIMEM+1 TO HIMEM+63 
27@ READ a$:POKE i,VAL("&"+a$) 
28@ NEXT i 
29@ DATA 21,7@,FB,11,30,FF,86,8C,05,86,@8 
2,C5,26,84,C5,21,5@0,8@,ED,B@,EB,@1 tEE28] 
sau DATa'S@,on)ED,42,EB,01 ,58,00,6D,2,E 
BB,EB,81,58,88,ED,42,EB,ED,42,C1 15704] 
3ı@ DATA” 18, eo, EB,®1, BD, SF, 09, EB,C1, 10,D 
4,01,BQ, ıSF, 29, sel, 18, Ica, c LAFECI 
328 DEHNI=HIMEM+1 RETURN [0.2.1023 


Listing 1. Interessante Bilder bekommt man mit »Dehni« 


1@ ‘** Dehni-Poker ** 1374C] 
20 MEMORY HIMEM-64 LA2841 
3@ FOR i=HIMEM+1 TO HIMEM+53 E[D3SC6J 
48 READ a$:POKE i,VAL("R"+a$) [A662] 
5@ NEXT i TABFAI 
&0 DATA 21,78,FB,11,30,FF ,Q6,@C,C5,86,82 

C5,06,84,65,01,58,0@,ED,B@,EB,@1 LCABSI 
7a DATA _50,80,ED,42,EB,81,58,20,ED,42,ED 

‚BQ,EB,81,58,88,ED,42,EB,ED,42,C1 LFB7CI 
80 DATA 10,E8,EB,@1,B0,3F,89,EB,C1,18,D4 

81 ,B8,3F ,89,C1,12,CA, cD8941 
98 DEHNI=HIMEM+I [5725] 


Listing 2. Dieses Programm zeigt, was »Dehni« kann 


Windowsäla 
Macintosh 


Wer bewundert nicht die 

Windowtechnik der neuen 

68000er-Computer. 

Mit diesem Programm kann 
Ihr Schneider das genauso schön. 


Ohne Beschreibung kann man die Software eines Compu- 
ters nicht richtig benutzen. Läuft das Programm, dann fehlt ga- 
rantiert das Handbuch. Wie schön ist es da, wenn man ein 
Hilfsmenü einblenden kann, ohne daß das eigentliche Bild zer- 
stört wird. Mit der »Bildschieberoutine« können Sie solche 
Hilfsmenüs leicht in Ihr Listing einbauen. 

Das Hauptaugenmerk liegt auf dem »Retten« des ursprüngli- 
chen Bildes. Mit »-CALL 25000« wird die entsprechende Routi- 
ne aufgerufen. Dasich das Programm selbst erklärt, tippen Sie 
es einfach ab und experimentieren Sie mit den verschiedenen 
Windows. (Siegfried Schlaak) 


Das »Help-Window« zerstört 
nicht das ursprüngliche Bild 


ı8 ,; ELTEEETEIATTTLEG GG 


EEE [8E4C] 
20 " unnnnner 
... C8CBAI 
IQ ' sun. BILDSCHIEBEROUTINE 
........ [BFA4] 
Dr ger rr ee 
.. EFEBE] 
SQ ' wuununneee zum Einbauen in vorhan 
dene ..—. 1549881 
6D ' suuuuueee Programme 
nr [78061 
70 ' sun. 
“nn... £4BC4] 
BB 
SS SE iz [2B5A] 
BG [85681 
100. ss 
“nn CBSACI 
11@ ' wununnnne 
...— TAs1AJ 
120 ’ suunnnnee (c) by Siegfried 
Schlaak #uunnaun [858C)9 
158 .._... Glashuette 
1 ...... [B416] 
149 “nr 7880 AALEN 
- ... L7F8C1 
158 “-....... 
..... 19422] 
BET ee 5 an nn nn nn nn En nz 
.—.—unnnenne ECDBB] 
170 " t83BE] 
DE ee SE En En N Enz 
|. t2BBC] 
Listing »Bildschieberoutine« 


. VARMERONFEONPETERWORLD, COM 


de ae 73 
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19@ ° 


zoo 
2ı@ 
228 


sı@ 


468 
470 
480 
490 
soo 
EIT] 


520 


Ex7] 


540 


568 


“ee 
#.....* Initialisierung des Pro 
gramns #unnere 
EEE ee 
wer 
a er 
rn 


MEMORY 24999 
REM RAMTOP setzen 
a=15:b=78:c=7:d=18 
:REM Windowgroesse 
festlegen 
mo=8: mol=2 
:REM Hilfsvariablen 
zum Window einrahmen 
MODE 2: INK @,B:PEN @: INK 1,13:PAPER 
13: BORDER 13:CLS :REM Bildschirm ini 


tialisieren 
WINDOW#1 ,a,b,c,d:PAPER #1,13 

:REM Window deklari 
eren 


RER 
RR 
errrrreee 
wur 
“u... Bildschieberoutine 
wenn 
Er re 
ELPPE FE en 
EEE nn 
ErPPRPPPPPPPPPPeF 


FOR i=25008 TO 25823 
:REM In die Adresse 
n 25008 bis 25023 die Werte aus Zeil 
e 308 und 31® 
READ z 
:REM auslesen und e 
inschreib, 


NEXT i 


DATA_1,255,63,17,12,98,33,8,192,237, 
176,201 
DATA_1,255,63,17,0,192,33,12,98,237, 
176,201 


LEE EEE Er 
EL Pre I PPPPPP Pe 
E22 E 2 ie 

EERITFFT FT 
“mm Bildschirm fuellen (Hie 
rn steht vennuneee 
me normal das Anwenderprog 
ramm) wenn 
LIE I ie 

ELLIEFe NN 
EL LLLLLLEELERLEE TE rer Fr 
ELDPPDPPPPPPPPreH 


i,z 


LOCATE 1,3:PRINT"Es gibt Programme, 

bei denen man nicht umhin kommt, dem 
Benutzer die" 

LOCATE 1,4:PRINT"Moeglichkeit des Ei 
nblendens von Beschreibungen oder Hi 
lfstexten in" 

LOCATE 1,5:PRINT"die laufende Bearbe 
itung eines Programms zu ermoeglic. 


LOCATE 1,8:PRINT"Der momentane Bilda 
ufbau soll aber weder geloescht noch 
so ueberschrieben“ 
LOCATE 1,9:PRINT"werden, dass, nachd 
em der Hilfstext gelesen wurde nicht 
mehr mit dem gleichen" 
LOCATE 1,1@:PRINT"Bild und an der gl 
eichen Stelle weitergearbeitet werde 
n kann." 
LOCATE 1,13:PRINT"Dies bedeutet, wir 
muessen’ den momentanen Bildaufbau ' 
RETTEN“ 
LOCATE 1,16:PRINT"Die Ihnen vorliege 
nde Routine, die in BASIC geschriebe 
n ist und eine" 
LOCATE 1,17:PRINT"Einrahmung sowie d 
ie Beschriftung der Windows zulaesst 
„ uebernimmt diese Arbeit." 
ÜOCATE 1,28: PRINT"Die Routine kann p 
roblemlos in jedes Programm eingebun 
den werden." 
LECATE 1,2ä4PRINT"E = ENDE —— ? = HE 
as=INKEY$: IF a$="" THEN 628 

REM Warten auf Ein 
gabe 


a$=UPPER$ (a$) 


:REM Umwandlung in 
Grossbuchstaben 


[8E2A1 
1@9A2] 
£821C1 


C1BB21 
L@7B8] 


tEAS4] 
[20761 
L35E41 
CB8181 
11244] 
CADC4I 
C&BB@] 
LSAIEI 
[21481 


CAB221 


LCFBBJ 
[85BE] 


[3FA4] 


LBCCB] 
181B2] 
[A388] 
[8886] 
CAF88I 


1828A] 
t87BC] 


LB89BA] 
19228] 
CBDF21 
178B2] 
1392E1 
LCACAI 
18658] 
LASER 
[61121 
117701 
[BES®] 
£43D83 
C2DAE) 
103321 
L74E81 


L3CCAI 


[88241 


'L2F743 


L4F54] 


[B44A1 


IF a$="E* THEN CLS:END:ELSE IF a$<>" 
?" THEN 628 ELSE CALL 25908 
GOSUB 878:CALL 25@812:G0T0 628 

:REM Wenn ’E' gedru 
eckt wird dann Programmende 


sREM Wenn ’?° gedru 
eckt wird dann wird der momentane 


REM Bildschirmaufb 
au gerettet (CALL 25908) 


“ REM Danach Sprung 
zum Textblock in Zeile 628 


:REM Nach der Rueck 
kehr aus dem Textblock wird die 


:REM alte Bildmaske 
wieder zurueckgeschoben. 


ıREM Danach Sprung 
nach Zeile 478 


LE Te ee re er 
ee 
Be rrere ren 

en 
mm Routine zum Einrahmen u 
nd nr 
" eeennenee Beschriften der Windows 


ne 


1rbb=b:cc=(c-1)*molıdd=d#moi 
#mo: bb=bb#mo: cc=ec#mo: dd=dd#mo 
PLOT aa-2,399-cc+2 DRAW bb,399-cc+ 
DRAW bb ,399-dd DRAW aa-2,399-d 
DRAW aa"2,399-Cc+2,8 
PLOT aa-3,399-cc+3,@: DRAW bb+1,399-c 
c+3,@:DRAW bb+1,399-dd-1,@:DRAW aa-3 
„399-dd-1,Q:DRAN aa-3,399-cc+3,0 
PLOT _aa-4,399-cc+4,Q:DRAW bb+2,399-c 
0: DRAW bb+2,399-dd-2,@: DRAN aa-4 
-dd-2,@: DRAN aa-4,399-cc+4,0 
LOCATE (aa+38) /mo, (dd+mo) /1& 
REM Beschriftungsp 
unkt des Windows festlegen 
RETURN 


„Zeile 570 


LEE ern 
ELLEEIDPPPDPP Por 
Be Trrer een 
er 
“mn Textblock 
un... 
......... 
u. 
LEE Leere 
ELLE rn 


REM Ruecksprung zu 


GOSUB 698 
:REM Sprung zur Ein 
rahmroutine 


WINDOW SWAP 1,0 

:REM Umschalten von 
Fenster ® auf Fenster 1 
cıs 

:REM Bildschirm loe 
schen 
LOCATE 17,2PRINT CHR$(24)5" HELP 
-WINDOW "CHRS(24) 
LOCATE S,4:PRINT"Hier koennen Sie si 
ch Bemerkungen oder" 
LOCATE 5,5: PRINT"Texte u.s.w. ablege 
n, die dann bei Bedarf” 
LOCATE 5,6: PRINT"einfach in die lau 
fende Bildschirmmaske" 
LOCATE 5,7:PRINT"eingeblendet werde 
n_ koennen." 
LOCATE S,8:PRINT"Man kann auch mehr 
ere Windows miteinander" 
LOCATE 5,9:PRINT"verschachteln." 
LOCATE 14,11: PRINT CHR$(24);" Weite 
r mit irgendeiner Taste ";CHR$(24) 
as=INKEYSrIF as="" THEN 1 

:REM Warten auf 

Eingabe 


WINDOW SWAP @,1 
REM Zurueckschal 
ten von Fenster 1 auf Fenster ® 


187® RETURN 


:REM Ruecksprung 
zu Zeile 418 


Listing »Bildschieberoutine« (Schluß) 


EB1DAI 


[1828] 


[62D2] 


LD478] 


tEBICI 


C62DA] 


caD181 


sau 
t28BE] 
19320] 
LF4EE] 
[F216] 
tAC32] 
con 


CBCE6] 
[8C36] 


[B2BE] 


CCEB4] 


ESFCAI 


[469C. 


18372] 
[BSCCI 
t8DCAI 
19638] 
CB848] 
1962A1 
kare 
19948] 
CB41C] 


158221 
1[C23A] 
[B8481 
1275E] 
LEA1QI 
15848] 
CAESEI 


[BEFZI 
LFCS®1 
157@C1 
L79BC1 


147881 
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Kreise 
mit einem 
Basic-Befehl 


Die Grafik der Schneider- 

Computer erlaubt in Verbin- 

dung mit den RSX-Befehls- 

erweiterungen den Aufbau 
spezieller Grafikbefehle, wie bei 
kaum einem anderen Heimcomputer. 
Ein Kreis gehört natürlich dazu. 


Unsere Befehlserweiterung soll die Form »CIRCLE, x- 
Koord., y-Koord., Radius« haben. Damit die Routine hinrei- 
chend schnell wird, dürfen wir die Darstellung des Kreises in 
Polarkoordinaten ((x,y)= r (cos(p),sin(p))) nicht benutzen. Die 
Polynomapproximationen für cos und sin des Intı ters sind 
zu zeitaufwendig. Aber auch mit der Formel y = 2 —x? geht 
es nicht schneller. Der CPC hat leider nur eine sehr langsame 
Wurzelfunktion über den Umweg: 


Yx'= x% = exp o In(x)). 


Außerdem müßte noch — da die Koordinaten eines Bild- 
Punktes ganzzahlig sind — eine zeitraubende Umwandlung 
von Fließkomma- in Integerformat vorgenommen werden. Eine 
eigene Routine muß a also her. Wir nehmen dazu die Newton- 
ra für x 


= + —), 
Kr a = 


mitn = 0, 1, 2,..undx, = x. 


Gerechnet wird nur mit ganzzahligen Werten und maximal 
zehn Iterationsschritten. Die entsprechende Routine ist etwa 
um den Faktor zehn schneller als die Routine für Gleitkomma- 
zahlen des Basic-Interpreters. 

Noch drei Faktoren sind zu berücksichtigen, wenn man eine 
schnelle Routine erhalten will. Die Größe eines Grafikpunktes 
hängt vom jeweils gewählten Modus ab. So ist es natürlich 
falsch, im Mode 1 (1 Pixel = 2 x-Koordinaten) den Kreis wie im 
Mode 2 (1 Pixel = 1 x-Koordinate) zu zeichnen. Aufgrund der 
‚Symmetrie des Kreises brauchen wir des weiteren nur die 
Koordinate (x,y) eines Punktes zu berechnen und erhalten 
durch Vorzeichenwechsel die entsprechenden Symmetrie- 
punkte (—x,y), (x—y) und (—x,—y). Letztlich muß man noch 
entscheiden, ob der Kreis durch PLOT oder DRAW entstehen 
soll. Mit PLOT gibt es bei großen Kreisen Schwierigkeiten, da 
hier die y-Abschnitte bei zwei benachbarten x-Koordinaten 
mehr als ein Pixel auseinanderliegen. Es wären also zusätzli- 
‚che Punkte zu plotten, um einen geschlossenen Kreis zu be- 
kommen — natürlich auf Kosten der Geschwindigkeit. Bleibt al- 
‚so nur noch DRAW. 

Der erste Programmteil bindet die Befehlserweiterung »Circ- 
le« ein. Zu Beginn der Routine prüft das Programm die Anzahl 
der übergebenen Parameter. Anhand des Bildschirm-Modus 
wird ein Zähler für die Berechnung der x-Abschnitte bestimmt 
undin COUNT abgelegt. Nach Sichern der aktuellen Koordina- 


ten setzt das Programm den Ursprung auf den übergebenen 
Kreismittelpunkt. Der Kreis wird beginnend bei der Koordinate 
(0,R) gezeichnet. 

Der Rest des Programms ist lediglich die leider immer müh- 
same Umsetzung der Formel y = //r? — x?. Eine große Hilfe 
sind hierbei natürlich die vom Betriebssystem zur Verfügung 
gestellten Routinen für die Integer-Arithmetik. 


(Horst Udo Hanenberg) 
" BASIC - Lader f}r CIRCLE 16740] 
1818 tc) 1985 Dipl.-Math. Horst Udo 
Hanenberg LB6E41 
1828 ° Am Mihlenteich 28 [C1B@] 
1030 5818 Bergheim 12 - Gle 
ssen LEEAA]I 
1948 ‘ Tel. @ 22 38 / 4 16 85 
L[@4EAI 
ı1a5@ " CB61A] 
1068 MEMORY KIFFF [Ca221 
1878 DZEILE=1248 14156] 
1088 ANF=4ABBB+2” 16: ENDE=&A13B+2"16 tCAB81 
189@ FOR I=ANF TO ENDE STEP 16 1[53SC: 
1188 CBFes1 
111@® DZEILE=DZEILE+1® [3340] 
1128 FOR J=I TO _I+15 [87F@] 
113@ IF J>ENDE THEN 1198 [2CE4] 
11@ READ Ws CaDsaı 
115@ WERT=VAL("L"+W8) 198154] 
116@ POKE J,WERT C98DE] 
1178 SUM=SUM+WERT L77FAI 
118@ NEXT J TEC263 
1198 READ Ws [BE44) 
1288 WERT=VAL ("&"+W$) [8440] 
1218 IF WERT <> SUM THEN PRINT"FEHLER IN 
DATA ZEILE" HDZEILEHEND L9AS4] 
122@ NEXT I L671A1 
1238 CALL &ABBB LEA32]I 
1248 NEW 11842 
1258 ' - Werte 
Pr}’fsumme CDIFCI 
1268 " 19320] 
1278 DATA 81,89,A8,21,15,AB8,C3,D1,BC,BE, 
AB,C3,19,AB,43. [2E58] 
1280 Data 32,43,4C,05,0@,00,08,88,0@,FE, 
83,C8,CD,11,BC,@b, LAAB6] 
1298 TA 8,06,86, 8 ‚82,86,801,78, 
32,2@,A1,CD,CC,BB, [63BE) 
1388 DATA ES,DS5,DD 81,DD,sE,88,22,21, 
A1,22,25,A1,2 LFBS8] 
131@ DATA A1,DD,56 „SE,®4,DD,66,83, 
DD,6E,82,CD, LCF84]1 
1328 Data 2A,21,A „A1,CD,BE,BD, 
22,23,Al,21 1847C1 
1338 DATA 22,2B,A „3A,20,A1,47, 
2B,18,FD,7C, [CE66] 
134@ DATA 1A,22,25,A1,E5,D1,CD,BE,BD,EB, 
2A,23,A1l,B7,ED,52,BBCF Lac7E] 
1358 DATA CD,97@ ,22,29,A1,CD,B6,AB,18, 
D8,Di,El,C. „asrs [B13E] 
136@ DATA _7C,B5,C8,22,2D,A1,22,2F,Al,@6, 
BA,CS,2A, Ai,ED,8695 [DsE2I 
137@ DATA 5B,2F ,A1,85,CD,C1,BD,D1,19,11, 
92 ,00,Ch,ci,Bb,22, @7B5 tscacı 
1388 DATA ‚A1,C1,18 Bu ED,SB,27,Ai, 
2A, 2B,Ai ‚E5,D5,CD,@8D! 175743 
1398 DATA C@,BB,ED,SB 25,8 a, 2A,29,A1,ES, 
DS,CD,Fb,Bb,ED,SB,@9F} 179681 
1400 DATA 27 ‚a 2A ,2B GEM ©, C7,BD,CD,C®, 
BB,Di,E1,CD,C7,BD,OA L9FEZI 
1418 DATA ED,F6,BB,E1,CD, ER BD,EB,E1,CD, 
‚BB, 2A, 25,Ai ‚CD, @B8 L7D1AI 
1420 Data &7"BD,E9.EB.2R,29,A1,ES,CD,Fö, 
BB,2A,27,A „CD,C7, ahsı T6AAEI 
1438 DATA BD,EB,2A,2B,A1,CD,C7,BD,CD,C®, 
BB,EI Ch,c: „BD,D1,0B3A 1474A] 
144@ DATA ED,F&,BB,2A,25,A1,22,27,A1,2A, 
,A1,22,2B,Al,C9,0703 La9AAI 
1450 Dara 199,50 ‚00 ‚00.00 oa on,oa,on,oo, ur 
1460 DATR 00.0008 CODE2I 
Listing 1. »CIRCLE« heißt der neue Befehl 
18 FOR _ j=@ T0 2 LEF@GEBI 
28 MODE 5 15862] 
3@ PRINT "Mode "zj; L96F2] 
48 LOCATE 1,1 LEDD4] 
58 PRINT "Mode L7EF& 
&8 FOR i=18 TO PrY STEP 18 [DA4CCI 
78 m 320,208,i tEE92] 
88 NE: [218E] 
@ FOR er TO 1888 £[2D1AJ 
188 NEXT L71EB] 
11@ NEXT SSE2' 
128 GOTO 18 LC9DAI 


ya 


Tips & Tricks 


Schnelles 
Laden von 
Kassette 


Auch mit dem Kassetten- 
Recorder soll das Laden 
eines Programms nicht 
zum Frust werden. 
Man muß nur das Aufzeichnungs- 
format ändern und die Daten in einem 
Block speichern. 


Ein längeres Programm von Kassette zu laden ist zeitauf- 
wendig. Um beispielsweise 20000 Byte mit 2000 Baud zu 
laden, braucht der Schneider-Computer ungefähr 140 Sekun- 
den. Es gibt viele Tricks, die Baudrate zu ändern (bis zirka 
4.000 Baudist dies mitausreichender Datensicherheitzureali- 
sieren), aber das eigentliche Problem stellt das Aufzeich- 
nungsformat dar. Die Programme werden nämlich in 2 KByte 
lange Blöcke zerlegt. Jeder Block hat einen eigenen Kopf 
(Header),indemLadeadresse, Länge, NamedesProgrammsund 
‚so weiter vermerktsind. Greiftman nun direkt auf die Firmware- 
Routine CAS WRITE zurück, so kann man die Daten ohne Hea- 
der in einem Block speichern. Die Zeit halbiert sich dann in un- 
serem Beispiel auf 72 Sekunden (bei 2000 Baud). 

Zum Laden der Programme benutzt der Schneider eine 
Firmware-Routine mit dem Namen CAS READ. Auf diese kann 
man auch direkt zugreifen, so daß die in einem Block gespei- 
cherten Daten wieder korrekt gelesen werden können. 

Die beiden Routinen müssen nun an unsere Wünsche ange- 
paßt werden. Listing 1 ist der Basic-Lader für die Routine CAS 
READ. Sie muß immer vor dem zu ladenden Programm stehen 
— sinnvollerweise mit dessen Namen. Die Anweisung hierzu 
lautet: »SPEED WRITE 1:SAVE”Name”« 

In Listing 2 finden Sie den Basic-Lader, der die Speicherrou- 
tine erzeugt. Das Maschinencode-Programm berechnet die 
tatsächliche Länge des im Speicher stehenden Basic- 
Programms, lädt die Register des Z80 mit den erforderlichen 
Werten und ruft die eigentliche Routine CAS WRITE auf. Nach- 
demListing 2 einmal gelaufen ist, kannmaneslöschen unddas 
Programm laden, das man speichern will. Mit »CALL 
HIMEM+1« wird die Speicherroutine gestartet und das Pro- 
gramm auf Kassette geschrieben. 

Beim Lesen von der Kassette wird zuerst die Laderoutine mit 
»RUN« geladen und dann automatisch das eigentliche Pro- 
gramm in den Speicher geholt. Dieses muß übrigens von Hand 
gestartet werden, da dies automatisch nicht möglich ist. 

Mit der hier vorgestellten Betriebssystem-Erweiterung kann 
man übrigens auch jedes Maschinencode-Programm spei- 
chern und laden. Man muß nur die Startadresse und die Länge 
der Routine kennen (mit einem Headreader-Programm leicht 
zu bestimmen). Zum Laden muß ein freier Speicherplatz vor- 
handen sein, der mindestens 12 Byte aufnehmen kann. Das 
Listing 1 muß um die zwei Zeilen aus Listing 3 erweitert wer- 
den. Die Variable »begin« steht für den Anfangsplatz des freien 
Bereichs minus eins. Die Variablen |, h, eund dsind Platzhalter 
für folgende Werte: 


Lowbyte der Startadresse des Maschinencode-Programms 
Highbyte der Startadresse des Maschinencode-Programms 
Lowbyte der Länge des Maschinencode-Programms 
Highbyte der Länge des Maschinencode-Programms 


aeos- 


Wenn in einem Programm solch eine Maschinencod 
Routine nachgeladen werden soll, muß der normale Ladel 
fehl durch »CALL begin+1« ersetzt werden — und die Dat: 
im entsprechenden Format vorliegen. 

Wenn man das ursprüngliche Maschinencode-Programm ii 
Speicher hat, benutzt man die zwei Zeilen aus Listing 4, u 
das Programm in der neuen Form zu speichern. Die Variabl 
sind die gleichen wie im Listing 3. . 
(Thomas Drögel 


1 
20 '»* (c) Thomas Droege ” 
sa '* Hohenzollernstr. 18 ” 
40 '* 4708 Hamm 1 * 
EIER EEE EELEEL LEISTET REES eG 
68 MEMORY &AFFF:FOR t=HIMEM+1 TO HIMEM+3 
@:READ a:POKE t,a:NEXT 
7® CALL HIMEM+1 
88 DATA %21,434.&AE ,%11,858,82,&3E ,&10,& 
CD,&AI „LBC,&2A EDS ,LÄE,BED,LAB, LEI EA 
E,GED,%42,LEB,L2A,RB1 EAE USE ,L1D,LCD 
„EAl „EBC,LC9 


Listing 1. Schnelles Laden aus einem Block 


LIFCCI 
ECB661 
LO68C1 
E33FCI 
(87041 


16248] 
L971E] 


ESFAEI 


10 

ic) Thomas Droege * 
Hohenzollernstr. 18 ” 

20 ‘= 4700 Hamm 1 * 

EIBBEEEELELSLELETELSEEETERTEEETE Eee 

68 MEMORY &AFFF:FOR t=LAABD TO LAA2B:REA 
D a:POKE t.a:NEXT 

7@ DATA %21 ,85D,%0,&SE,&A,&CD,%68, &BC,%2 
1,834, BAR ,&11,858,&2,L3E,%10,&CD,L9E, 
ABC ,U2A, UBS LÄE ,L2A,LBS,LAE LED, KAB,& 
81, ÜAE „LED ,%42 GEB ,L2A,L01 ,DAE„ESE,LI 
®,5CD,K9E„LEC,&C9 


LIFCCI 


LSB2E] 


Listing 2. Viel Zeit spart man, wenn die Daten in einem 
Block gespeichert werden 


1@ FOR t=1 TO 124READ arPOKE begin+t 

EX 1C79C1 
20 DAra Kazı, 1,h,&11,e,d,&3e,&10,&cd,&al, 

&bc ,uc9 129CA1 


code-Routinen in der neuen Form geladen werden 


Listing 3. Mit dieser Ergänzung können auch 1 


18 FOR t=1 TO 12:READ a:POKE begin+t,arN 
EXT t:CALL begin+1 

2@ DATA &21,1,h,&11,e,d,&3e,&1B,&cd,%9e, 
&bc,&09 


[3E4A1 
L49E21 


Listing 4. Mit zwei Zeilen bekommen auch 
Maschinencode-Programme das richtige Format 
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THEN freeb-free LCBFAI 
PRINT "{33SPACE }Bitte warten 
L3SEEI 
249 FOR i=® TOn EBFCBI 
25@ IF PEEK(x+1+14*i)=@ THEN GOSUB 7 
8@:60T0 428 L2B2EJ 
268 mi=14#i [DE161 
278 mer ke=x+2+m1 [5A5@1 j 
280 FOR i1=@ TO 7 175041 
298 disces(i)=disc# ti) +CHR$(PEEK ( 
merke+i1)) [6EBCI 
308 NEXT i1 t8C583 
3ı8 disc$ti)=disckti)+"." 112283 
328 merke=x+1@+m1 LACAGI 
338 FOR i2=® TO 2 CSFB4J 
= & SB ge FisgFlÄrmdiscstältcHRe(PEEKE  , 
vs +18+14*i+i 
Folgende Situation: Man rt 12 123681 
Pi . 368 disc$(i)=disc$(i)+"(ZSPACE )" _ IFD4EI 
sucht verzweifelt nach ei- 370 |_„IF,PEEKInFISEmI)CIR THEN ds on 
2 isc$ti)+" " 
398 disc$(i)=disc#(i)+STR$(PEEK (x +13 
nem Programm und findet a a taaB23 
1 u t- isc$(i)=disc$li)+" 
es einfach nicht. Warum? am USSPAcE 2: t7eesı 
ER 5 IF tf=1 THEN disc$ti)=disc$ti)+" 
Weil die Beschriftung auf den zu den tcDası 
H Ari . 470 [SC6EI 
Disketten gehörigen Karten nicht PRINTEPRINT"Diekette undrehen, dann 
. a aste druecken !" C588 
mehr aktuell ist. Mit »Autolabel« 348 aszINKEvs: Ir Sean“ THE 200 E2e281 
ii ii H 460 60T0 188 [8758] 
bekommen Sie fast automatisch ein 479 Br2@@/ürucktir nca THEN o-a 132803 
. . #8,CHR$ (1 
Inhaltsverzeichnis. TREM Schmalschrift ein c291A1 
498 ERLEBT [D288)] 
P m uerti seo „CHRE IE 
Wieder einmal ist man guter Vorsätze. In Zukunft wird jede :REM Doppeldruck ein £[91181 
I P i i if 518 PRINT #8,SPACE$(27-INT(1/2));titel® [4AD6] 
Änderung auf der Diskette mit Radiergummi und Bik tift auf 320 PRINT #BICHRE 27) 40H"; 
dem entsprechenden Zettel vermerkt. Doch schon die näch- a en Doppel druck aus 1acsE] 
z made n f 2 IF druck<i 3 
ste große Disketten-Aufräumaktion läßt alle Wünsche in Ver- 5aB PRINT #8,CHR$ (27) +"A"+CHRS (p); 
gessenheit geraten. Das Chaos beginnt von neuem. = Rn Setze IR auf B/72, inch 127421 
ETopen . en SL ab, Sy a en rn Er PRINT 0," 5 re ee AISSPACE og] 
. Das 'erzeichnis wi 2: {6SPACE jSeite BLI2SPACE 3Q8i u 
> uz a URN a a ee h S 578 PRINT #8,STRING$ (55, LBF86] 
mit Randmarkierung säuberlich ausgedruckt, einfach aus- 58@ PRINT #8, ". (SSPACE n.- 2": [82303 
schneiden, und schon paßt der Ausdruck in die Diskettenhülle. Er FREIE Ber +"6"5 aan 
S : Doppeldruck ein 
Nach Programmstart wird zuerst das Anschalten des 60@ PRINT #8,USING "###";freeas:PRINT #8 
Druckers gefordert, bevor Sie die zu beschriftende Diskette SELEng un LF6SCI 
H Ni ii ins- 618 PRINT #8,CHR$ IH": 
einlegen müssen. Der Titel (wird zuerst angefordert) darf ins: EREN Dopneldruck- ai LADS81 
gesamt 37 Buchstaben beinhalten. Die Namen der verschie- 628 PRINT #8," {1SSPACE Fa a E1CD6] 
638 PRINT #8,CHR$ (27) +"6"; 
denen Programme werden nun auf den Drucker ausgegeben. TREN Doppsldruck ai LBA221 
Die Handhabung von Drucker und Diskettenstation wird von 64@ PRINT #8,USING "###":freeb;:PRINT #8 
dem Programm gesteuert. PR: 11SPACE >. ass 
Das Programm wurde ursprünglich für den Star-Drucker ge- 668 FOR i=® TO druck " „ F122A3 
schrieben. In den Zeilen 460 bis 560 kann manaberauchje- | °7@ „RENT HE." .C2SPALE Irsdisestidst 
den anderen Drucker anpassen. Allerdings muß das Gerät GE LE 
über Zeilenvorschub in .oll-Schritten verfügen. Die pas- el aber ti/n“ 
senden Steuercodes finden Sie in Ihrem Handbuch. nn me 1B9541 
n: 2 ns="" 
(Thomas Arnold) 722 n$=UPPER$ (ns) [16361 
73@ IF n$="N" THEN END LA1201 
740 IF n$<>"J" THEN 718 LE416] 
75® CLEAR:MODE 2:60T0 128 LAFFA] 
768 END L9F281 
10. sn LIFCCT . 77@ REM Automatischer Laengenabgleich _ [4548] 
28 ‘*(c) Thomas Arnold/Andreas Lohrum # [4302] 788 IF tf=@ THEN aleng=i-1:RETURN: ELSE 
30 ‘* Am Graben 25, 7700 Singen + [87881 IF t#=1 THEN bleng=i-i C21BC1 
20 nununuuneeeeeee  LEIDZ] 798 druck=MAX (aleng,bleng) ca2101 
5@ MEMORY 42619 LEEBB] 880 IF bleng>aleng THEN 848 L757E] 
68 OPENOUT "dummy" MEMORY HIMEM-1:CLOSEO 81® IF aleng>bleng THEN 898 2:2: 79] 
ur 14202] 820 RETURN 190341 
7@ MODE 2 LFBFCI 83@ REM Mehr Files auf B-Seite L1F86] 
80 CLEAR LASDEI 848 FOR i=aleng+1 TO bleng LCB&EI 
90 DEFINT i t83D8J 858 discs(1)="(BSPACE >. (7SPACE 3@ k 
ige LocATe 31, SPRINT CHR$(164)+" by Tho {6SPACE I: "+discs(i) LAS9C1 
mas Arnold [BD2CI 864B NEXT i £550C] 
118 LOCATE 18,6:PRINT "Drucker bitte ON- 87@ RETURN LASSEI 
LINE schalten !" 88@ REM Mehr Files auf A-Seite CBBBEI 
120 x=49571 89@ FOR i=bleng+1 TO aleng [2781 
130 DIM disc# (64) ın=63 a8 disces(i)=disc$(i)+"{BSPACE 3. (78 
148 LOCATE 18,8:PRINT "Bitte Diskette PACE 38 k" LECEBI 
nlegen, dann Taste druecken !" 918 NEXT C7DF23 
150 a$=INKEY$: IF a$="" THEN 158 928 RETURN [DE36]J 
1&® PRINT:PRINT: INPUT "Titel der Diskett 938 END tC4261 
e (maximal 37 Zeichen) ";titel$ LFABCI : 
17@ 1=LEN(titel$)zIF 1>37 THEN 168 L18B4] 1 
188 MoDE 2 [7C6BI 
190 CAT 19924] i 
200 Frue=PEEK (49868) Be Listing. Mit »Autolabel« bekommen Sie ein Inhalts- E 
21@ IF tf=® THEN freea=free EFCF4] verzeichnis Ihrer Disketten 


Tips & Tricks 


anderen Anweisungen müssen aber Buchstabe für Buchstabe 


= 
Pro ram mie- eingetippt werden. Außer man benutzt sTastatur«, eine Pro- 
grammierhilfe. 


Drückt man einen Buchstaben gemeinsam mit der Shift-Ta- 
ren — sch nel | ste, dann wird nicht der Großbuchstabe, sondern eine Basic- 
‚Anweisung aktiviert. Die Belegung der Tastatur finden Sie in. 

= der Tabelle. Die normalerweise in dieser Ebene liegenden 

u n d & | nfa ch Großbuchstaben können nur noch mit der Ctrl-Taste oder mit- 
tels »Caps Lock« aufgerufen werden. In das Programm sind 

auchnoch die deutschen Sonderzeichen integriert. Da das »ö« 


r ä H die gleiche Belegung hat wie der senkrechte Strich (»ı«) der 
Mit »Tastatur« können Sie RSX-Befehle, darf dieser Buchstabe nicht in REM- oder DATA- 


mit nur einem Tastendruck _ Zeilen benutzt werden. 


. . . . Das Programm besteht aus zwei Teilen, wobei der erste alle 
die wichtigsten Basic-Be- Erklärungen enthält. Der zweite istfür die eigentliche Umdefini- 
fehle aufrufen. tion zuständig und kann auch alleine benutzt werden. Wer an- 


dere als die hier vorgestellten Befehle mit einem Tastendruck 
Basic-Befehlsworte können sehr lang sein. Deshalb gibt es aufrufen will, der kann diese im zweiten Teil einbauen. 
im Locomotive-Basic zwei Abkürzungen für besonders häufig 


gebrauchte Routinen — »?« für »PRINT« und »'« für »REM«. Alle (Karlheinz Battermann)) 
-an nu en ee 
... TASTATUR un 
u. eine -.. 
en Programmierhil+fe u. 


- RER EHER EEE 


Taste allein ait SHIFT sit LTRL # # Taste allei 


sit SHIFT ait CTRL 
oder 


* Taste allein ait at sur wit ch * 


® Annerkungs Die Zeichen 0 p und K sind Stesrarichen in PRINT-Zeilen, z.B, PRINT "a zur nchsten Zeil 
een ee 
# die deutschen Zeichen sind ‘ 
. * 
3 r , Tabelle. Die Be- 
; 2 Ras Er x 
Anmerkung Bu lein > 3 € darf ach in REM ud DATI-Ztlen benutzt werden 1 „ legung der Tasten 
es mit »Tastatur« 
12 REM snnnn L[82E2] 258 PRINT"Dies Programm soll die Arbeit 
20 REM #** TASTATUR .. ESCF4] beim Abtippen von Listings undbeim e 
3@ REM #*#* eine ... [8448] igenen Programmieren er-leichtern." LF518] 
40 REM #=* Programmierhilfe ... [B922] 268 FRINT"Deshalb wurden die wichtigsten 
5@ REM #.= .. [9184] Basic-Befehle auf die Tastaturgelegt 
&8 REM Bene Karlheinz Battermann##= [875C] ‚ sodass nur eine Taste zusammen mit 
70 REM »#* Weissdornweg 28 .. [3C54] SHIFT gedrueckt{2 SPACE}werden muss 
REM Per 3422 Bad Lauterberg *=* [748E) um z.B. den Basic-Befehl > WINDOW < 
90 REM seen t12F2] zu geben.” CBBIAI 
18@ INK ®,@:INK 1,11zINK 2,1zINK 3,97 £71B2] 27@ ZONE &:PRINT:PRINT, "weiter {2 SPACEI- 
118 MODE 1:PEN 3:PAPER @:BORDER 3:CLS £[D182] ->{2 SPACE}Taste” L[F4E4] 
128 LOCATE 6,4:PRINT STRING$(38,"*") LESA2] 288 CALL &BB18:CLS [SC4A] 
13@ ZONE S:PRINT,"###*{7 SPACEITASTATUR{F 29@ PRINT"Alle Buchstabentasten, ausser 
SPACEI##=" TAAEBI @YJK und X, sind mit Basic-Befehl 
148 PRINT,"#*#(9 SPACE}eine{11 SPACEI=== en belegt." [4C44] 
” [@997EI 38@ PRINT:PRINT"Die Grossbuchstaben der 
15@ PRINT,"**#{4 SPACE}Programmierhilfeti mit{3 SPACE}Basic-Befehlen belegten 
4 SPACEI#e=" [D278] Tastensind daher nur noch zusammen{2 
16@ PRINT,STRING$ (3@,"x") £8C721 SPACE}mit CAPS LOCK oder CTRL er-{3 
178 LOCATE 7,25: PRINT CHR$(164);"1985 by SPACE}reichbar !" [425213 
kabasoft-computing 2 LACDA] 31@ ZONE &:PRINT:PRINT:PRINT,"weitert2 5 
180 WINDOW 6,35,15,19:PEN 1:PAPER 2:CLS I[DE#2] PACEI-->{2 SPACE}Taste" EDA&8]I 
19@ PRINT: PRINT" Wienschen Sie Instrukti 
onen?" L677E] 
288 ZONE 12:PRINT:PRINT,"> j/n <" [E58] 
28 as=INKEY$: IF a$="" THEN 218 1D@14)3 
IF a$="n" THEN CLS:60T0 35@ L1AASJ ist Pi 
238 IF as="j" THEN 248 ELSE 218 aan Listing 1. »Tastatur — eine Programmierhilfe« macht 
24@ WINDOW 5,35,11,22:PEN 1:PAPER 2:CLS [A748] Programmieren einfach 
1/86 Sonderheft 
he “ vie, ER . a "u u Zi 


Tips &Tricks 


32@ CALL &BBi8:CLS 115481 62@ PRINT#B, „"#"; TAB(17) "I"; TAB(25) "3"; T 
33@ PRINT"Auch der deutsche Zeichensatz AB(31) "3"; TAB(44) dg$; CHR$ (241) }dn$ 
„urde definiert. Hierbei darf jedoch TAB(52) "* #"3 TAB(SB) "K"3 TAB(&6) "k"; 
das kleine >oel nicht{2 SPACE)in RE ABLTZUKTHTAB(ES) dgsschRs (24) sn; 
M- oder DATA-Zeilen be-(2 SPACE)nutz TAB (93) "» #";TAB(134)"*" 120301 
t_ werden!" CA188] 630 PRINT#B, ‚"*"; TAB (17) "Q"; TAB(25) "q"3T 
348 PRINT EFDBB] AB(S1) "OIHTAB(S1)"* #"4TAB(S7)"X"H TA 
35@ PRINT"Wuenschen Sie die Ausgabe des B(65) "x"; TAB (71) "X"; TAB (84) ; dg$; CHRS | 
deutschen Zeichensatzes und{3 SPACE} (295) sdn$; TAB(92)"# #" 5 TAB(9B) "Y"; TA 
der Basic-Befehle mit den zu- gehoer B(1@6) "y"; TAB(112)"Y"; TAB(133)"*"  LD7EAI 
igen Tasten ueber den(S SPALEIBrUCKe 64@ PRINT#B, ,"#";TAB(17) "2"; TAB(25) "2"; T 
r?£3 SPACEI> 3/n <* 1C6441 AB(S1) "LIST"; TAB(44) "#"; TAB(S1)"# #" 
36@ a$=INKEY$: IF as="" THEN 368 LC42C3 3 TAB (57) "2"; TAB(65) "5"; TAB(71) "LISTE 
378 IF as<>"j" THEN 768 18744] 8": TAB(B4) "+"; TAB(F1) "= @";TABC132)" | 
38@ PAPER B:CLS L793E1 En tsacaı 
37@ WINDOW 6,35,14,19:PEN 1:PAPER 2:CLS [2666] 65® PRINT#B, ‚"#"3TAB(17)" "3 TAB(25) ","3 T 
490 PRINT:PRINT"Der deutsche Zeichensatz AB (31) "INK" TAB(A4) "NH TAB(SI) "wa"; 
und{2 SPACE}die Basic-Befehle mit d TAB(57)". "3 TAB(65) ". "3 TAB(71) "PEN" 35T 
en zu- gehoerigen Tasten werden ausg AB (84) ">" TAB(91) "= "5 TAB(97) "/"H TA 
edruckt. Bitte warten ... tc1c83 B(185) "/"; TAB(111) "PAPER"; TAB(124) "7 
418 PRINT#8,CHR$ (27) ; CHR$ (87) 5CHRS$ (1) 5CH ";TAB(132) "#" 161581 
R£(27) HCHR$ (69) ;CHR$ (27) HCHR$ (71) 120 660 PRINT#8,,"*"; TAB(17) "Anmerkung: Die 
NE & LBACEI Zeichen ";dg$5CHR$ (241) dnsz" "sdg$; 
420 PRINT#8, ‚STRING$(3@,"*") [7ETEI CHR$ (249) ;dn$;" und "5dg$3CHR$ (203) ; 
430 PRINT#B,,"##*(7 SPABEITASTATUR(9 SPA dn$;" sind Steuerzeichen in PRINT-Ze 
CEIRne“ 1@75E1 ilen, z.B. PRINT "jdg$5CHR$(34) ;CHR$ 
440 PRINT#B,,"#***(9 SPACE)einetil SPACE) (241) sdns; LF7281 
a... 138823 670 PRINT#8," zur n{chsten Zeile";dg$CHR 
450 PRINT#B, ,"*##(4 SPACE)Programmierhil #(34) dns" usw. ";TABCLSTI"«" c13121 
fe{4 SPÄCEIWR=" tesacı &8@ PRINT#B,,"* "3STRINGF(116,"-")5" #" [1F22] 
468 PRINT#8, ‚STRINGS (30, "#") LIEBE] 69@ PRINTWa, TE" TAB(I7) "die Agutschen.Z 
470 PRINT#8,CHR$ (27) ; CHR$ (87) 5CHR$(@) 5CH eichen Sind (132)"#" [1830] 
R$ (27) 5 CHR$ (78) sCHR#$ (15) 1B34@] 708 PRINT#B,,"* ingscle "3" 0" [69141 
48@ ZONE 12:WIDTH 138 LEIE2I 710 PRINT#B}}"#":4m$; TABC18) "L"jar&r TAB 
490 PRINTHB, „STRING$ (120, "-") tB3F2] 27) "t":TAB(33) "L":TAB(46) ".";dm$; TAB 
SaQ PRINT#B, ,"#*"; TAB(15) "Taste"; TAB(22) " (54) "* #"3 TAB(6B) "1" 5 dr$3 TAB(EP) "1"; 
TAB(29) "mit SHIFT";TAB(40) "m TAB (75) "\"HTAB(88) ". "sdm$: TAB (96) "* 
it CTRL*:TAB(S1)"* #"; TAB(S5) "Taste" #"; TAB(1B2) "\"5dr$3 TABC111) "2 "HTABCL 
TAB (62) "alleih”; TAB(&9) "mit SHIFT": 17) "1"3 TAB(13@)". "3 TAB(1SB) "#" 17B681 
TAB(80) "mit CTRL": 148261 72@ PRINT#B, ‚“*"jdms; TAB(18) ".";dr#; TAB( 
510 PRINT#8,TAB(91)"* #"; TAB(95) "Taste"; 27)". "4 TAB(33)"." TAB(46)". "sms; TAB 
TAB (182) "allein": TAB(189) "mit SHIFT" (54)"# #"; TAB(6B) "@"; dr$3 TAB(69) "="; 
TAB (12@) "mit CTRL"zTAB(132) "«" LFCB4J TAB (75) *.": TAB(88) ". ";dm&5 TAB (96) "# 
520 PRINT#B, ‚"#"; TAB(43) "oder"; TAB(51)"* #"; TAB(182)". "zdr$5 TAB(111)"."HTABCL 
*" TAB{B3) "oder": TAB(91)"* #"; TABL 17)". "; TAB(13@) *.";TAB(1SB)"#" t3A2A1 
23) "oder"; TAB(132) "»" 1695A1 738 PRINT#8,,"*"}TAB(17) "Anmerkung: Das 
538 PRINT#B, ‚"#*": TAB(4@) "CAPS LOCK"HTAB( kleine >'i < darf nicht in REM- und 
51)"* #": TAB (88) "CAPS LOCK":TAB(91)" DATA-Zeilen benutzt werden !!!";TAB( 
* #";TAB(12@) "CAPS LOCK"; TAB(132) """ 132) "." 129141 
CEBEEI 748 PRINT#8, ‚STRING$ (120, "-") LABEEI 
540 PRINT#B,,"* "3STRINGF(116,"-")5" #" LCDIBJ 75@ PRINT#8,TAB(17) dg$5CHR$ (164) dns; " 
550 PRINT#8, ,"*";TAB(17) "die definierten 1985 by’ kabasoft-computing" LB64EI 
Basic-Befehle sind .....- "TABL 76@ PAPER B:CLS 19342] 
132) "0" c@4a21 77® WINDOW 6,35,14,19:PEN 1:PAPER 2:CLS [7C6A] 
568 PRINT#B,,"* "3STRING$(116,"-")5" #" [SBIC) 788 LOCATE 6,3: PRINT"Weiter bitte Taste" 
57@ FOR_d=1'T0 7:READ ti#,ki$,bis,gis,t2 :LOCATE 12,5:PRINT"> 3/n_<" 160441 
$,k2$,b28 ,92#,t3$,k3#,b3#,93# cası21 79@ a$=INKEY$:IF as="" THEN 798 [Dass] 
588 PRINT#B, ‚"#"; TAB(I7)t145 TÄB(25)K14; T 80@ IF as="j" THEN 870 L72CAJ 
AB(31)b1#; TAB(44) 914; TAB(51)"* #"; TA 81® CLS:LOCATE 8,5:PRINT"* #(2 SPACEIE N 
B(57)t2$3 TAB (65) k2$; TAB(71)b2$; TAB(B D E(2 SPACE}® #":CALL &BBIB:END CDAFAI 
43924: TAB(91)"* #"3 TAB(97) 34; TAB(1® 820 REM «r« “*  [DF34] 
5)k3#: TAB(111)6344 TAB (124) q345 TAB(13 830 REM *** Programm >TASTATUR 2 »#» [86481 
FIREH L2BE4] 840 REM *** Dieses loescht den Pro-+#* _LSSEC] 
570 NEXT [71FaA] 850 REM *** grammteil >TASTATURC ###*  LDIEZI 
608 DATA A,a»AND-ArHsh. GOSUBEH, Rırgran * 360 REM x “er _ [EBSCI 
** R,B,b,BORDER By, 1,i ‚INPUT,1,8,5,5Y 878 CLS:PRINT:PRINT" Das Programm > TAST 
INLDCATEILITIENTN ATUR 2 << SPACEIwird geladen. ":PRIN 
MODE „M,Ü,u,USING T" Bitte warten .. tD7ACI 
YNEXT „N, VL v, VAL„V,F 880 RUN" !Tastatur 2" [58883 
IF JFORIF, „o,2,0ra ‚0 Won BIRDON WET ng 
ATd,G,P,p, „2,2 ‚ZONE ,Z = 
610 dgsächRFl27)+ NTP. unsere (dr Ldrs=CchR Listing 1. »Tastatur — eine Programmierhilfe« macht 
$(27) +"6" 1 dm$=CHR$ (27)+"7" EDCAEI Programmieren einfach (Schluß) 
— 
10. REM rss LAEZEI 268 KEY 148, "PRINT" LCBAGI 
20 REM au TASTATUR #"*  LAC74] 278 "REM aun" 194941 
30 REM «u. eine »** [9908] 142, "SYMBOL" 188401 
28 REM ur Programmierhilfe s##* L[6@A2] 143, "THEN" LEIF&I 


50 REM RHHnHS a LCATEI USING" [E696] 


288 
278 
308 
) 60 REM *** Tastatur zuruecksetzen #*= [6748] ET} VAL“ 120541 
70 REM *** [9688] 328 „ "WINDOW" L9E42] 
8@ CALL 2BBaQ LB8DC) 338 147," ZONE“ TESBEI 
98 REM xx *** [4692] 348 weitere Basic-Befehle *#* [B@BBCI 
190 REM Hsnsnnnns  [EEIGT 352 148," INK" L6A6BI 
118 REM *** Basic-Befehle definieren #* [3176] 368 149, "PEN" [4166] 
120 REM *** 1.Buchstabe=Basic-Befehl ##* [EEI6] 378 158, "PAPER" [87821 
138 REM »#* ** [7394] 388 „"GOSUB* 10296] 
140 KEY 128, "AND" [BES] 39@ KEY 152,"LIST" 15112] 
15@ KEY 129, "BORDER" CA4121 480 KEY 153,"LIST#B" CACBA] 
168 KEY 138,"CL5" EZEACI 418 REM #*= #** [75AA] 
178 KEY 131,"DATA" CAACB] 42@ REM *** deutsche Zeichen definieren L[7A98] 
18@ KEY 132, "ELSE" ESCEZI 430 REM x». “** [17AEI | 
198 KEY 133, "FOR" [6162] 448 SYMBOL AFTER 98 [F@521 
200 KEY 134,"60T0" EF2F8] 45@ SYMBOL 91,198,16,56,188,198,254,198, | 
21@® KEY 135," INPUT" CEBAAI ® caa2A] | 
22® KEY 136, "LOCATE" L71FE] 
230 KEY 137,"MODE" LE9DCI 


Bau Ken iss Keroeı Listing 2. Im zweiten Teil wird die Tastatur angepaßt i 


SYMBOL 92,102,56,188,198,198,108,68, 
a TsCBAI 
478 SYMBOL 93,182,8,102,1@2,182,182,60,8 
[BE44] 
480 SYMBOL 123,1@2,8,120,12,124,204,118, 
a L4ABB] 
490 SYMBOL 124,102,0,60,102,102,102,60,0 
L1F44] 
5@@ SYMBOL 125,102,0,102,102,102, 182,59, 
IDEABI 
Sı9 SYMBOL 126,128,198,198,252,198,198,2 
48,192 189261 
520 REM *** Tastatur neu definieren «»= L7EE@] 
SIR REM u. “= [LAFBBI 
548 REM *** Basic-Befehle auf *#* L[B6AIEI 
55@ REM #*#+ Tasten + SHIFT legen *#*# [B8BA]J 
56B REM xxx ”** [9QB6) 
570 REM *** urspruengliche Funktion #** [AEB4] 
580 REM #** Tasten + SHIFT zt “+ [C9OC] 
590 REM *** Tasten + CTRL »"” [21441 
690 REM xx »** [LEBACH 
610 FOR ti=1 TO 26:READ a,b,c,d:KEY DEF 
a,1,b,c,diNEXT LF96CI 
62@ DATA &9,97,128,65,54,98,129,66,62,99 
„130,67,61,1@0,131,68,58,1@1,152,59, 
53,182, 133,78,52,183,134,71,35,185,1 
35, 73,36, 108,136, 76,38,189,137,77,46 
„ılo,ise 7a, Sa,1lt, 139:79,27,112,148 
50, 114,121 82, 38, is. 142,83,51,1 
162128,84.42.117,144,85 177583 
630 DATA 55,118,145, er 59,119,146,97,71 
122,147,90,39,44,148,60,31,46.149,62 
„3@,47,158,63,44, 184, 151,72,29,58,15 
2,42,28,59, 153,43 154761 
648 REM ##* *** [BCB4] 
658 REM *#* Deutsche Zeichen auf? #x** [S8A4] 
660 REM *** Tasten mit und ohne *=* [5Q0C] 
670 REM »** SHIFT legen. *** [1A681 
680 REM ##* =“=*+ [S5@BC] 
690 FOR t2=1 TO 4:READ a,b,c:KEY DEF a,8 
„b,czNE) L9DD43 
70a BATA 17.125,91,19,124,92,22,125,95,2 
65126, 186 [EBsE] 
71B REM «++ *** [BIBQ] 
728 REM sw» Zahlenblock auf Zahlen *= LAscel 
7380 en Bei umstellen *=*# L[DD26] 
740 “= [9286] 
758 FöR 85 TO _12:READ a,b,c,d:KEY DEF 
„@,b,c,dzNEXT TAC6EI 
760 DATA 18,55,55,55,11,56,56,56,3,57,57 


„37,2@,52,52,52,12,53,53,53,4,54,54, 
34,13,49,49,49,14,59,50,50,3,51,51,5 
1, 15,48,A8,48,7,42, 44,4 
REM dur 


»6,13,15,15 
ar 


788 REM u. Auch nach dem Loeschen #** [3482] 
790 REM ** des Listings bleiben ##* L[23F41 
828 REM *** die Funktionen voll er- *** TEBDBI 
81@ REM *** halten. ”** [AB46] 


828 REM *** Nach einem Symbol after #** 
83@ REM **= werden jedoch die ... 
848 REM *** deutschen Zeichen ge- ##%* 
85@ REM *#* loescht!!!!! ... 
868 REM #u u. 


87® CLS:LOCATE 2,2:PRINT" In welchem MOD 
E >1 oder 2<{4 SPACE}michten Sie 
tippen?{2 SPACE}"z;:LINE INPUT:a$: 
AL (as) 

888 ON a S0TO 988,1@28 

898 REM xx* 


... 


702 REM == MODE 1 ***  [91DEI 
91B REM ##* “** [4974] 
928 MODE 1:INK 1,11:BORDER 3 ESFEEI 
PEN S:PAPER @sCLS LB97A] 
* TASTATUR *' L8B821 
WINDOW 1,40,25,25:PEN 3 APER @:CLS [A656] 
ZONE &: PRINT, CHR$(164);" 1985 by ka 
basoft-computing LE2681 
778 WINDOW 1,48,2,24:PEN 1:PAPER 2:CLS_ LIEDEEI 
988 LOCATE 9,15: PRINT"Programm 1 schen? 
>j/n<" [6156] 
970 a$=INKEY$: IF as="" THEN 998 [82581 
THEN NEW L7BB2] 
LSCAAI 
MODE 2 ... 
129741 
1230 REM *=* *** [92081 
1948 MODE 2:INK 1,15:BORDER 1 [6348] 
125® WINDOW 1,88,1,1:PEN B:PAPER 1:CLS L[&BD2] 
1868 ZONE S4:PRINT,"* TASTATUR #" L78DAJ 


127@ WINDOW 1,88,25,25:PEN @®:PAPER 1:CL5 


[D4AEI 

1288 ZONE 24:PRINT, CHR$(164);" 1985 by 
kabasoft-compuüting" LAC181 
127@ WINDOW 1,8@,2,24:PEN 1:PAPER G:CLS L[BB46] 
118@ G0TO 988 [7@B8] 


Listing 2. Im zweiten Teil wird die Tastatur 
angepaßt (Schluß) 


Unsichtbare 
Programme 


Fünf Kommas und ein Dop- 

pelpunkt reichen aus, um 

eine Programmzeile zu ver- 

stecken. Mit »Superlist- 
schutz« schützen Sie das ganze Pro- 
gramm vor dem LIST-Befehl. 


Es gibt unzählige Tricks, Programmzeilen aus einem Listing 
scheinbar verschwinden zu lassen. Man muß verhindern, daß 
bestimmte, für das Programm wichtige Anweisungen gelistet 
werden. Der Interpreter soll diese Befehle aber trotzdem fin- 
den und bearbeiten können. Manipulationen an Adressen, in 
denen Zeilennummer oder -länge stehen, sind am einfachsten 
zu realisieren. 

Hier finden Sie nun eine neue Methode, verschiedenste An- 
weisungen (oder auch das ganze Programm) optisch ver- 
schwinden zu lassen. Gibt man hinter der Zeilennummer einen 
Doppelpunkt und daran anschließend fünf Kommas ein, so ge- 
nügt ein POKE-Befehl, um die ganze Zeile zu verstecken. Falls 


Sie es nicht glauben wollen, geben Sie einfach folgende Zeile 
ein: 

10 :,„PRINT "Dieser Text ist unLISTbar” und direkt »POKE 
368+5,0« ein. 

Mit »LIST« wird auf dem Bildschirm nur »10:« ausgegeben. 
Nach »RUN« wird die Zeile 10 aber korrekt bearbeitet und »Die- 
ser Text ist unLISTbar« ist zu lesen. So kann man beispielswei- 
se einen Copyright-Vermerk in ein Programm einbauen, der nur 
sehr schwer wieder zu löschen ist. 

Falls man jede einzelne Zeile so manipuliert hat, kann das 
ganze Programm zwar abgearbeitet, aber nicht gelistet wer- 
den. Der Aufwand ist jedoch sehr groß. Mit dem Programm 
»Superlistschutz« werden die zu schützenden Zeilen automa- 
tisch umgewandelt. Nach dem Eingeben der Routine (ab Zeile 
50000) muß das zu bearbeitende Programm mit »MERGE 
" Name” « geladen werden. Danach nur noch die Funktionsta- 
ste »f9« (Taste »9« auf dem Zahlenblock) drücken und »Super- 
listschutz« startet. 

Drei Punkte muß man allerdings beachten: 

1. Da das Programm aus Platz- und Geschwindigkeitsgrün- 
den mit Integerzahlen arbeitet, dürfen die Zeilennummern 
nicht größer als 32767 sein. 

2. Die Zeilennummer 0 ist nicht zulässig. 

3. Da jede Zeile um sechs Zeichen länger wird, darf die ur- 
sprüngliche Folge nicht mehr als 249 Zeichen haben. 

Die wichtigste Anweisung finden Sie mit dem EDIT-Befehl in 
der letzten Programmzeile. Sämtliche Zeilen des zu schützen- 
den Programms werden automatisch um einen Doppelpunkt 
und fünf Kommas ergänzt und durch den POKE-Befehl in Zeile 
50880 »versteckt«. 


(Jörg Braun) 


Tips &Tricks 


REM mn 


REM * (c) Joerg Braun * 
REM * Waldenburger Str. 5 * 
REM x 333® Helmstedt * 
REM MHHRRSS 


MEMORY HIMEM -41: 

REM Bis Zeile 58258 befindet sich 
die 

DEF FNmsb (a)=&FF AND INT (a) /256: 
REM Mergeroutine fuer Floppybesitz 
er. 

DEF FNIsb(a)=&FF AND UNT (a): 

REM User ohne Floppy bitte nicht a 
FOR i=HIMEN +1 TO HIMEN +58: 

REM 
READ byte 

POKE i,byte 

NEXT i 

FOKE HIMEM +3,FNIsb (HIMEM +39) 
POKE HIMEM +4, FNmsb (HIMEM +39) 
POKE HIMEM +9, FNIsb (HIMEM +41) 
POKE HIMEM +18, FNmsb (HIMEM +41) 
POKE HIMEM +18,FNlsb (HIMEM +1) 
POKE HIMEM +19, FNmsb (HIMEM +1) 
REM cas_in_char 

POKE HIMEM +39 ,PEEK (LBCB@+B) 
POKE HIMEM +4@,PEEK (#BC8@+1) 
POKE HIMEM +41 ‚PEEK (&BCB@+2) 
POKE &BC8B+2,&03 

POKE Ni sb (HIMEM +1) 


POKE (HIMEM +1) 
DATA 00 ,%22,%80,&bc 
DATA 13a, 00, zoo, #32, 282, abe 


DATA %cd,%88,&bc,%21,800,%00 
DATA &22,881,&bc,%21,4B®,&BC 
DATA %36,&c3,Kel,LdB,&ch,&f 
DATA 837 ,&3# „&8,&7,&37,409 

‘##* Hier Ende der Floppyroutine * 
Er 


&la 


zn: Zeilennummer 
ad: Zeilenadre: 
" _a:Schleifenvariable 

* b$:Schleifenstring (fuer Datas) 


: 
MODE 2:WINDOW #2,1,8@,4,22:CL6 1:C 
LS#2 
WINDOW#3,1,80,10,15 
POKE %&B1C8,B:POKE &BICF,&FB:POKE & 
BIiDO,&F: REM Bildschirmmode umsch 
alten 
yupls 2,2:PRINT "Listschutz-Spezi 
Rt 
LOCATE 2,24:PRINT " "CHR$(164) "198 
5 by J.Braun " 
POKE &BICB, 2: 

REM Wieder nach Mode 2 
WINDOW SWAP 3 
PRINT"Merge Programmname" 
PRINT"Starten mit Funktionstaste 9 


KEY 9,"run 58798" +CHR$ (13) :END 
LEBE ze ze Pe re 


f 
REM Hier beginnt die Tastenpufferm 
anipulation 


Fi 
RESTORE S8530:FOR a=1 TO 16 


READ b$:b#: +b$ 
POKE &B514+a-1,VAL (b#) 
NEXT 
POKE &B53C,13 


POKE &BS3D,8 
POKE &BS3E,9 
POKE ABSSF BO 
RETURN 


DATA_20,02,00,02,00,02,00,02,01,40 
‚00,20,02,10,62,84 
a 


RESTORE 5@648: FOR a=1 TO 20 
READ b$:b$="A"+b$ 
POKE &B514+a-1,VAL (b$) 
NEXT 
POKE &BS3C,11 
FOKE &BSSD,18 
POKE &BSSE,11 
POKE &BSSF,d 
RETURN 
DATA _00,02,00,02,20,02,00,02,00,02 
‚@2,02,01,40,00,20,02,10,02,04 
Ta "ak ae ak "ck 
RESTORE S®7@0:FOR a=i TO 14 


READ b$ 

POKE &BS14+a-1,VAL("&"+b$) 
NEXT 
DATA 00,02,00,02,00,02,01,40,00,20 


„82,10,02,04 
POKE &B536,14 


C26B41 
LD@ABI 
[6358] 
[7844 
[22BCJ 


EC1B61 


CB2DC] 


L&D6EI 


LODECI 
CCB12] 
£7C64] 
[8106] 
E13A4] 
[73AA] 
LC7A6] 
CESEB] 
£D@98] 
LAE961 
TS@BE] 
15648] 
[3234] 
Ca13A] 
EF244] 
[84341 
L583A] 
C9BC2] 
C64F4] 
CBAS41 
CACECI 
15120] 
158961 


LABSEI 
L6C@4] 
[4066] 
LS8AF2J 
C30081 
CacAs1 


[6594] 
C4SB8] 


C67E41 
C6EEBI 
C4D6CI 


1331A] 
15548] 
LC7CCI 


LACZEI 
L887E) 
CSESCI 
L15A8] 


L&B5@] 
COsacı 
[1678] 
[52F@] 
[28801 
C@9BE] 
[8126] 
15202] 
ECDC&I 
COFBB] 
EO4F8] 


12805] 
CES76] 
L236E1 
C17F4] 
CA184] 
CAAC21 
C4C26] 
[QE161 
L4B1C] 
L@BBC1 
EFIFCI 


L3F721 
L6A7Al 
15372] 
[D1C81 
E56B2] 
LAFC6I 


[94081 
L6E2@] 


59720 POKE &B53D,7 

5@73@ POKE &BSSE,8 

59740 POKE &B53SF,B 

5075@ RETURN 

57ER "mu 


5077® REM Ende Tastenpuffermanipulation 


A 
50790 REM Hauptprogramm 
SOBBR KEY 2,CHR$(@): 


REM Es wird das Druecken dieser 
», "+CHR$ (13) +CHRS (13) 5 
REM 3 Tasten sowie mehrer Cursor 


SQ81@ KEY 3,": 


5082@ KEY 4,"goto 5@BBR"+CHRF(13): 
REM tasten simuliert. 


ı 
50840 zn=PEEK (378) +256#PEEK (371) :ad=368 


52858 GOTO 5a900 


SOB6B 'r#n0#® Ende Initialisierung ###* 
w.. 
50870 : 
S@88@ POKE ad+5,@: REM 
Zeilenadresse+5 auf @ poken 
50890 ad=ad+PEEK (ad): REM 


Auf naechste Zeile erhoehen 


50908 zn=PEEK (ad+2)+256*PEEK (ad+3): REM 


Neue Zeilennummer auslesen 


fi 
50920 IF PEEK(ad)+256*PEEK (ad+1) >249 THE 
PRINT"Zeile "zn" ist z 


N MODE 1: 
u lang":CALL &BB@3:STOP: 


REM Puff 
entleeren,noch erlaubte Zeilen 


nge ? 
EI 


50950 IF zn>=50@00 THEN CLS:CALL &BB@S: 


PRINT"Geschuetzt 
Programm kann gespeichert werden" 
DELETE 
Sao00- 
50940 ı 


50950 IF zn>99 AND zn <10@8 THEN GOSUB 5 
8448: 'Tastenpuffermanipulation auf 


rufen 
5996@ IF zn< 1@@ THEN GOSUB 50668 
50970 IF zn>999 THEN GOSUB 59558 
Sa980 : 


50990 IF zn>32767 THEN MODE 1:PRINT"CTR 


L G)Zeilennummer "zn" zu gross": 


CALL &BBO3:S 


TOP: 


REM Noch Integer ? 
51000 : 


5101® Ibzn=zn MOD 256: REM Lowbyte Zeile 


nnummer= zn Mod 256 
51@2@ hbzn=zn \ 256 

ennummer= zn \ 256 
S1a30 : 


5104® POKE PEEK (&AE83) +256#PEEK (&AEB4) -5 
REM Zeilennummer bei Ed 


„lbzn: 


it 
51050 POKE PEEK (&AEBS) +256#PEEK (BAEB4)-4 


‚hbzn: REM veraendern 
sıasa ' 
51070 REM Zeiger auf Prograi 


51080 EDIT 51040 


Listing. Machen Sie mit »Superlistschutz« 
Ihre Programme unsichtbar 


ı_REM Highbyte Zeil 


ende wenige 
r 5 Bytes = Zeilennummer bei edit 


LF7C81 
EC9CEI 
£19C21 
LE1@2] 
L6B7E] 
12896] 
C1CBC] 
L1a2@1 


L37AEI 


L6F6E] 
LAsBB] 
[2BB4] 
EiC6C] 
£77F2] 


157441 
L17BC3 


19654] 
LSBSE] 


[5D18] 
[4DB2] 


[27D6] 
[SEBE] 


LADB2] 
[5488] 


[B6E6] 
130703 
CCF66] 
148C8] 


1576C] 
LOBABI 


L33AB1 
TED26J 
La6Ası 
£9D121 


£C87C] 
C1B86] 


LS4FEI 
EFBBCI 


Tips & Tricks 


Tricks mit 
dem Joystick 


Lesen Sie, was Sie mit 
dem Joystick alles machen 
können. 


Der CPC 464 hat mit anderen Computern, beispielsweise 
dem 64, gemeinsam, daß die Joysticks auch mit der Tastatur 
abgefragt werden können. Wer Programme mit Joystick- 
Bedienung schreibt, sollte deshalb »INKEY(x)« oder »INKEY$« 
statt »JOY(x)« verwenden, damit sich Besitzer ohne Joystick 
das Programm mit einigen KEY DEF-Befehlen anpassen kön- 
nen. 

Wie aus dem Anhang Il (Seite 16) des Benutzerhandbuchs 
zu ersehen, besitzt die Tastatur für diese KEY DEF-Befehle ei- 
ne besondere Numerierung. Die Werte gehen von O bis 79, 
wobei die Werte 72 bis 77 für den Joystick O reserviert sind. 
Die Werte 48 bis 53 für den Joystick 1 liegen parallel zu den Ta- 
sten 6, 6, F, G, Rund T. Die Numerierung erlaubt, daß die Zu- 
ordnung der Joystick-Bewegung und Feuertasten leicht verän- 
dert werden kann. 

Der Joystick als Cursor: 

Mit »RUN 50« wird der Joystick so definiert, daß er anstelle 
der Cursortasten verwendet werden kann. Die vier Richtungen 
entsprechen den Cursorrichtungen, die beiden Feuertasten 
der Copy-Taste. Drücken Sie gleichzeitig Shift und den Joystick 
in eine Richtung, so erscheint der Copy-Cursor. Mit Ctrl und 
Joystick nach links wird der Cursor an den Anfang der Bild- 
schirmzeile, bei Joystick nach rechts gemeinsam mit Ctrl an 
das Ende der Zeile gesetzt. Mit Ctrlund Joysticknach oben ge- 
langt man an den Anfang der Eingabezeile, bei Joystick nach 
unten an das Ende der Eingabezeile. Nach kurzer Gewöh- 
nungszeit läßt sich der Joystick angenehm benutzen. 
Dauerfeuer: 

Haben Sie keinen Joystick mit Dauerfeuer-Knopf, so sind die 
Zeilen 130 bis 210 für Sie besonders interessant: Nach »RUN 
130« verfügen beide Joysticks über Dauerfeuer — aber nur, 
wenn die Joysticks mit »INKEY(x)« oder »INKEY$« bezie- 
hungsweise den Maschinensprache-Äquivalenten abgefragt 
werden. Bei »JOY(x)« hängt es von der Programmierung ab, ob 
ein Dauerfeuer möglich ist. 

Joystick-Zuordnung verändert 

Für Programme, die nur Joystick 1 abfragen und die Joy- 
sticks mit »INKEY(x)« oder »INKEY$« abfragen, können Sie mit 
»RUN 220« die Zuordnung des Joysticks O auf 1 ändern. 
Caps-Lock und Shift-Lock: 

„Oft ist es nützlich zu wissen, ob die Caps-Lock oder Shift- 
Lock-Tasten gedrückt worden sind. Dies kann man durch Ab- 
frage der Speicherstellen B4E7hex und B4E8hex erfahren. 
Nach »RUN 300« wird der aktuelle Zustand ausgegeben. 

Mit Ctrl und Caps-Lock wird der Modus Shift-Lock einge- 
schaltet und auch wieder abgeschaltet. In diesem Modus wer- 
den auch die Tasten der Zahlenreihe in der Shift-Ebene abge- 
fragt. Zahlen können dann nur noch über den Zehnerblock ein- 
gegeben werden. 

Mit POKE-Befehlen an dieser Adresse kann Shift-Lock oder 
Caps-Lock eingeschaltet werden. Starten Sie mehrmals »RUN 
340«. Jedesmal wird zwischen Groß- und Kleinschreibung hin 
und her geschaltet. 

(Martin Kotulla) 


Pe hide an 


 (C) Martin Kotulla [B7C6] 


Grabbestr. 9 


20 
=”. 850@ Nuernberg LF9BEI 
a2: [82561 
5® ‘ Joy-® als Cursor warnen  [9DSZI 
&@ KEY DEF 72,1,&F@,&F4,SFi [2458] 
7@ KEY DEF 74,1,&F2,&F6,4FA t@c7@3 
80 KEY DEF 73,1,&F1,&FS,&F9 LE6SCI 
90 KEY DEF _75,1,&F3,&F7,&FB EBE7CI 
100 KEY DEF 75,1,4E0,2E0,%E@ [30981 
11@ KEY DEF 77,1,%EB,4EQ,LEO [F3941 
120 END LAB14] 
128 ""Daumrfauer. sanssesansnennenneen ERBEN 
14@ ’ - Joystick ® CEDcD21 
15@ CALL &BB88 ° Tastatur initialisieren 

121681 


168 KEY DEF 76,1,%58,258,458 CC16C1 
170 KEY DEF 77,1,%5A,&5A,&5A 1@7A6] 
188 " - Joystick 1 SADcı 
19@ KEY DEF 52,1,&67,%47,87 LIEF61 
200 KEY DEF 53,1,&66,446,&6 L16E21 
21@ END CAB14] 
220 ° Joy-® als Jo; EITSERRRERNAGESRBERN [67881 


230 KEY DEF 72,1,&36,&26 C18D@1 


240 KEY DEF 74,1,%72,452,&12 L763E] 
250 KEY DEF 73,1,&35,&25 CDAD21 
268 KEY DEF 75,1,%74,854,&14 [9858] 
27@ KEY DEF 76,1,&67,447,&7 ceD8@] 
288 KEY DEF 77,1,&66,446,&6 [L92FE] 
290 END 108241 
308 ° Abfrage von Caps/Shift Lock ###** [BEBBI 


sı@ IF PEEK UB4EB)=255 THEN PRINT "Caps 
Loc 

32@ IF PEEK (LBAE7) =255 THEN PRINT "Shift 
Lock!" 


33@ END 
340 ' Setzen von Caps/Shift Lock ##r##* [B6Q6] 
35@ POKE &B4E8,255 AND NOT PEEK(&B4EB) 
368 END 


Listing. Der Joystick hat viele Vorteile 


Schnell 
gespeichert 


Zwei POKESs an der richti- 
gen Stelle reichen aus, um 
die Speicher-Geschwindig- 
keit zu erhöhen. 


Wie man die Geschwindigkeit des eingebauten Kassetten. 
recorders verändert, das können Sie in dem Artikel »Was tun, 
wenn's Fehler hagelt?« lesen. Mit zwei POKE-Anweisungen 
lassen sichaber auch direkt die Werte für die CAS SET SPEED- 
Routine beeinflussen. 

Der notwendige Basic-Befehl lautet »POKE &B8D1,x:POKE 
&B8D2,y«, wobei Sie die Werte für x und y aus der Tabelle über- 
nehmen können. 

(Martin Kotulla) 


&B8D1 &B8D2 


1000 Baud (SPEED WRITE 0) 6 83 

2000 Baud (SPEED WRITE 1) 12 41 

3600 Baud (Maximalwert) 2 23 
Dieser Wert muß gePOKEt werden 


2.488 Sonderhei Schneiden 


Tips & Tricks 


Kleine 
Buchstaben 
ganz groß 


Machen Sie Ihr Programm 
mit einer kleinen Hilfsrouti- 
ne interessanter. Mit ihr 
können Sie Buchstaben 
und andere Zeichen in vierfacher 
Größe auf den Bildschirm zaubern. 


Der Trick der Routine »Big Letters« besteht darin, daß der ge- 
samte Zeichensatz mit dem Befehl »SYMBOL AFTER O« ins 
RAM kopiert wird. Dort kann er — im Gegensatz zum ROM, in 
dem er normalerweise steht — mit PEEK ausgelesen werden. 
Das Programm wandelt nun jede Zahl, die einer Rasterzeile des 
Buchstabens entspricht, in einen Binärstring um. Der Befehl in 
Zeile 200 prüft, welche Bits in dem Zeichen gesetzt sind. Die 
PLOT-Anweisungen in den Zeilen 210 bis 240 setzen dann die- 
sen Punkt in vierfacher Größe. 

Sie sind übrigens nicht auf eine bestimmte Buchstabengrö- 
Be festgelegt. Fügen Sie einige PLOT-Befehle dazu oder las- 
sen Sie einige weg, so verändert sich die Größe des ausgege- 
benen Zeichens. 


(Martin Kotulla) 
; BIG LETTERS CB9BAI 
Tu 168521 
En [78381 
x [8256] 
‘ (C) Martin Kotulla LArcEI 
R Grabbestr. 9 LEBEB) 
8500 Nuernberg [39C6] 
[865€] 
0 CLSESYMBOL AFTER BeMODE 1 casıa] 
IPUT "Welcher Text? "‚asciit EBEDB] 
11a orısın 12380 (94141 
120 FOR k=1_TO LEN(ascii$) C&BA&] 
130 ascii=ASC(MID$ (ascii$,k,1)) [4924] 
14® charadr=HIMEM+asci i=8+8 CD7481 
15@ FOR i=1 TO 8 C2FSE] 
16@ a=PEEK (charadr) 1998] 
17® binaers=BIN$ (a,8) CE@Sal 
18@ FOR j=1 TO 8 [4866] 
190 segnent$=MID$ (binaer#, 5,1) LEDCAI 
200 IF segment$="@" THEN 256 E3ASEI 
210 PLOT x+3#4,1*4 CEAEBI 
220 PLOT x+2+jk4,i=4 EDF9CI 
230 PLOT x+3#4,144+2 CDBIEI 
240 PLOT x+2+344,1#4+2 E7a5A1 
25@ NEXT_jscharadr=charadr-1:NEXT i CA7@21 
260 x=x+32 CBSEA] 
270 NEXT k 4186] 
280 LOCATE 1,23:END Lecca) 

Listing. 


Viermal so große Buchstaben erzeugt »Big Letters« 


Welcher Text? Big Letters 


EBiy Letters 


»Big Letters« — Buchstaben ganz groß 


Endlich wie- 
der sichtbar 


Der Befehl »SAVE ”Name” 

‚P« ist zwar praktisch, wenn 

man nicht jedem sein Pro- 

gramm zeigen oder es 
schützen will. Aber was macht man, 
falls noch etwas geändert werden 
muß? 


Wer hat sich nicht schon über den eigenen Leichtsinn geär- 
gert, ein Programm geschrieben und es dann dummerweise 
geschützt (protected) gespeichert zu haben? Besonders 
wenn keine andere Kopie von dem Meisterwerk vorhanden ist! 
Jetzt kann man zwar das eigene Programm laden und ablaufen 
lassen, aber Änderungen sind nicht mehr möglich. Um Ihnen 
aus diesem Dilemma herauszuhelfen, soll die kleine Routine 
dienen. 

Ein Basic-Programm, das nur aus zwei Zeilen besteht, macht 
aus einem »protected« ein »unprotected«. Die Routine steht im 
Speicher an einem Platz, der von der Betriebssystem-Routine 
»CAS IN DIREKT. direkt aufgerufen wird. Sie schreibt den Wert 
Nullin die Speicherzelle AE2Chex, die das Protected-Flag dar- 
stellt. Der Wert Null bedeutet in diesem Fall, daß dieses Pro- 
gramm nicht geschützt ist. 

Wer nun aber glaubt, auch professionelle Programme damit 
knacken zu können, der wird enttäuscht sein. Die Software- 
Häuser verlassen sich schon lange nicht mehr auf den einge- 
bauten Schutz. Sie benutzen eigene Routinen. 


(Michael Bauer) 


101 RR LSELOT 
2@ ' * (c) Michael Bauer *  CA9AGI 
za‘ + Schwanthalerstr. 188 * [92041 
0°“ 80@@ Muenchen 2 * 119081 
SO nn LSELBI 
&@ FOR p=&BE7F TO &BEB4:READ dıPOKE p,dı 

NEXT p 19198] 
7@ DATA %SE,0,&32,&2C,&AE,&C TECACI 


Listing. Mit zwei Zeilen können Sie Ihr versehentlich 
gesichert abgespeichertes Programm wieder lesen 


DRÜCKE NUR DIE NEW-TASTE 
UND iCH VERZEIHE DIR ALLES... 


HoserBAR H 


Grundlagen 


Daten im direkten 


Zugriff 


Relative Dateiverwaltung ist mit 
dem DOS der Schneider-Disketten- 
>24 station nicht ohne weiteres möglich. 

Im ROM sind die notwendigen 
Routinen aber schon vorgesehen. Mit einer 
Befehlserweiterung kann man sie leicht be- 
nutzen. Adressen komfortabel zu speichern 
ist dann beispielsweise kein Problem mehr. 


CPC fehlt eine wichtige Routi- 

ne, die relative Dateiverwal- 
tung. Leider sieht Amsdos diese 
Möglichkeit nicht vor, selbst nicht 
über die Sprungvektoren. 

Es gibt aber dennoch einen 
brauchbaren Weg relative Dateien 
zu erzeugen. Beim Studium der 
ROM-Routine der Diskettenstation 
fällt auf, daß Amsdos-Dateien in so- 
genannten Records (das sind Auf- 
zeichnungseinheiten zu je 128 Bytes) 
auf Diskette geschrieben sind. Dies 
geschieht unabhängig von der Grö- 
Be der physikalischen Sektoren, die 
512 Bytes umfassen. 

Glücklicherweise gibt es Ams- 
dos-Routinen, die — ähnlich wie un- 
ter CP/M — einen bestimmten Re- 
cord einer Datei lesen und be- 
schreiben können, ohne die davor- 
liegenden erst lesen zu müssen. 
Dies ist Voraussetzung für den Di- 
rektzugriff. 

Eine relative Datei wird zunächst 
einmal als sequentielle Datei ange- 
legt. Dies geschieht am einfachsten, 
indem wir mit SPACE$ Leerstrings 
erzeugen, die exakt der gewünsch- 
ten Datensatzlänge entsprechen. 
Um die relative Datei später wahl- 
weise auch sequentiell lesen zu kön- 
nen, fügen wir an jeden Leerstring 
noch ein Carriage Return (CR)-Zei- 
chen (DHR$(13)) und ein Line Feed 
(LF}-Zeichen (CHR$(0)) an. Aller- 
dings ist das für die relative Datei 
nicht unbedingt erforderlich. Im- 
merhin werden dadurch für jeden 
Datensatz zwei Bytes mehr benötigt. 

Wir schreiben nun die Anzahl von 
Leerstrings (einschließlich CR und 
LF)in die sequentielle Datei, die die 
relative Datei an Datensätzen erhal- 
ten soll. Dann können wir mit der Be- 
fehlserweiterung »IRECWRITEX« je- 
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den einzelnen Datensatz beschrei- 
ben und mit „IRECREAD« wieder le- 
sen. 

Übrigens muß die Datensatzlänge 
keinesfalls mit der Recordlänge von 
128 Bytes übereinstimmen. Sie kann 
frei zwischen 1 und 255 Zeichen ge- 
wählt werden; selbst wenn ein Da- 
tensatz über zwei oder drei Records 
verteilt ist. Die Befehlserweiterung 
ist deshalb so aufgebaut, daß ein 
String mit gegebener Länge ab dem 
n-ten Zeichen der Datei geschrie- 
ben beziehungsweise gelesen wird. 
Das erste Zeichen in der Datei hat 
dabei den Wert Null. Das Maschi- 
nencode-Programm errechnet hier- 
aus automatisch den zugehörigen 
Record und die Position in diesem, 
ab der gelesen oder geschrieben 
werden soll. 

Bei jedem Schreib- und Lesevor- 
gang werden drei hintereinander- 
liegende Records in einen Puffer 
gelesen beziehungsweise von dort 
aus wieder auf die Diskette ge- 
schrieben. Die Anzahl der Bytes ist 
in der Stringlänge gegeben. 

Hier ein Beispiel, das diesen Vor- 
gang verdeutlichen soll. Angenom- 
men, wirhabeneine Datensatzlänge 
von 200 Bytes, einschließlich CR und 
LF, und möchten den 38. Datensatz 
lesen und ihn in der Stringvariablen 
a$ ablegen. Zunächst muß mit »a$ = 
SPACE$(198)« ein Leerstring mit 198 
Zeichen (200 abzüglich CR und LF) 
erzeugt werden. Als nächstes wer- 
den drei aufeinanderfolgende Re- 
cords in den Puffer gelesen, begin- 
nend mit dem, der das 7600.(=38* 
200) Zeichen der Datei enthält. Nun 
ist aber 7600/128 = 59 Rest 48 wes- 
halb wir die Records 59, 60 und 61 
einlesen müssen. Da die Bytezäh- 
lung der Records nicht bei 1, son- 
dern bei Byte 0 beginnt, greifen wir 


aufRecord 59, Byte 47zu. Der 38. Da 
tensatz ist somitin Record 59, Byte 4 
bis 127 (80 Bytes) und Record 60, By- 
te 0 bis 117 (l18 Bytes) (ohne CR, 
gespeichert. Es erübrigt sich, in die: 
sem Fall auf den dritten Record 
zugreifen. Er wird aber immer mi 
gelesen und -geschrieben. Zum 
Schluß wird der Datensatz aus dem 
Recordpuffer in den vorher ange 
legten Leerstring zur weiteren Bear: 
beitung übertragen. 

Beim Schreiben werden zuers 
die drei betroffenen Records von 
Diskette gelesen. Dann wird derIı 
halt des Datensatzes in den Puffer 
an der Stelle abgelegt, von wo sie 
wieder auf Diskette geschrieben 
werden. Die Größe der relativen 
Datei ist lediglich durch die Aui 
zeichnungskapazität der Diskette 
beschränkt, die beim Schneider 180 
KByte (Datenformat) beträgt. 

Beachten Sie aber, daß sowohl vo 
Schreib- als auch Lesezugriffen i 
relativen Dateien immer e 
OPENIN-Anweisung nötig ist. Nie 
mals darf aber OPENOUT benutzt 
werden, da dies eine neue Dateia 
legen würde. 

Ebenfalls unter allen Umständen 
zu vermeiden ist ein Schreibzug 
auf eine höhere Datensatznummen 
als für die die Datei ausgelegt ist 
Deshalb sollten Sie eine Sicherheits 
abfrage in Ihre Programme einbaı 
en, die so etwas verhindert. Wenn 
darüber hinaus beim Anlegen dei 
Datei immer zwei zusätzliche Re 
cords reserviert werden, sind Sie} 
vor unangenehmen Überraschun 
gen sicher, wenn Sie auf einen def 
letzten Sätze zugreifen. 

Bevor nun die Arbeit mit den net 
en Befehlen an einem Beispiel be 
ginnt, müssen Sie den Basic-Lade: 
(Listing 1) für das Maschinenpro 
gramm eingeben. Die Routine lieg 
dann ab A000 hex. Möchten Sie die 
Erweiterung in Ihre eigenen Pro 
gramme einbinden, gibt es drei ver: 
schiedene Wege. Entweder Sie be- 
nutzen den Basic-Lader und laden 
später Ihr eigenes Programm. Ein 
anderer Weg: Sie hängen den La- 
der mit Hilfe von »CHAINMERGE« 
an Ihre Programme an und rufen ihn 
dann als Unterprogramm auf, Dazu 
müssen Sie die Programmzeilen der 
Routine mit »RENUM« neu ordnen, 
so daß sie höhere Zeilennummern 
benutzt als Ihr BASIC-Programm. 
Achten Sie aber darauf, daß Sie in 
Zeile 240 NEW durch RETURN er- 
setzen. 

Die letzte und bequemste Mög- 
lichkeit besteht darin, den Lader ab- 
zuarbeiten und als Binärdatei auf 
Diskette zu schreiben. Dies ge- 


REM BASIC-Lader fuer Maschinenprogra 
mm 
REM Relative Dateiverwaltung auf 
REM CPC 464, 664 und 6128 
REM =======10==202 000002. s000emnennnn 
® 
. 
'@ MEMORY &ABBQ-1 
RESTORE 
FOR i=&ABOB TO LALTF 


&D1 ,&OA.UAB,&21,&22,&AB,uCD,&D 
&BC ‚&C9,%12,&AB,&C3,LCF „BAD, uC 
LOD.&A1,852,445,443,452,445,84 
&C4 ‚452,445, 443,457 ,452,449,45 
%C5,400,%.00,%00,%00,100,400,40 
200,200 ,%.00,200,%00,%00,%400,40 
%00 ,LC3,&CF LAB,EC5ERD,EAL ur 
%02,%C2,%B4,&AQ,&DD,&6E ,&02,&D 
&66 ,u03,%2B,&7E,BFE,&04,&02,&B 
&AQ,%23,%11,%26,2AQ,u01,:05,&0 
SED ,&BO,&DD,&6E ‚uOQ,&DD,&66,&0 
&2B,&7E„LFE,L@2,802,%B4,2AQ,&2 
&11,82E,LAB,%01 803,800 ,8ED,&B 
L3A,L2A,EAB,LFE,LB1 ,&3Q,&0D,&2 
200,%00,%22,%2B,2AQ,&IE ,200,&35 
&2D,&AQ,&37,&09,LFE,&98,8D2,8B 
SAD ,&21 ,&29,&AB,&CB,UFE,ESA,&2 
LAB,LFE,&97,&28,&QF „821 ,82A,&A 
&34 ‚u2B,&CB,&3E „&2B,&CB,L1IE,&2 
&CB,&IE,&18, BEA, U2A,&2B,LAB,E2 


LF1B2] 
LF3361 
L9EBBI 
[BE781 
LF762] 
LAS481 
[OB7E1 
1D7661 
CAISE] 
TSCD61 
183121 
150941 
192741 
1D25A1 
LES341 
173861 


Grundlagen 


%2D,&AB,&3A,&2E ‚AB ,LFE,EBQ,uC 
&B4 ‚LAD ,&37 ,209,&37,u3F 809,82 
%2B,LAB,u23,%22,&2B,BAB,&11,8&2 
%00 ,u2A,&7D,&BE,&19,u3A,&2B,&A 
&77 E23, 5A ,&2C ‚AB ,&77,&09,&C 
&37 „LAD, &DB,&CD,&DC,LAB,&CD,&rF 
SAB,LED,&BB,4C9,UCD,LBE,&AD,&2 
280 ,&A1,8CD,&5A,&A1 „uCD,&B7,&A 
%21,500,&A2,&CD,&5A,&A1,&CD,&B 
SAB.%21,LEB,LA2.UCD.LSA LA .&C 
LSA,&2D,LAB,USF,%16,400,621,88 
uA1,%19,LED,&SB,&2F ‚LAB,&SA,u2 
SAG ,LAF ‚806,500 ,8C9,4CD,%37,&A 
&D8,&CD,&BE ‚LAD,%21,580,&A1,uC 
ESA,UA1,&CD,EFB,LAD,LEB,KED,LB 
&CD,&BE,UAB,&21,2B0,&A1,UCD,&6 
&A1,&CD,&B7 ,&AB,&21,200,&A2,&C 
&S5A,&A1,&CD,&FB,&AB,SEB,LED,LB 
SCD,&BE LAD, &21 ,500,&A2,&CD,&6 
&A1 ,&CD,&B7,3AB,&21,280,&A2,&C 
LSA,UA1,&CD,EFB,LAB,LEB,BED,LB 
&CD,LBE,LAB,%21,280,8A2,&CD,&6 
&A1 809 ,EDF ‚&SE,&A1,809,892,&D 
&87 ,UDF ,&65,&A1,809,268,&A1,&0 
&ES,&D5,8C5,BES,&11,208,800,&C 
%98 ,&CA,SCD,&10,&D4,&D2,&A9,&D 
SEB,LES,&CD ,UF3,&D9 ,E03,&A6,&D 


135681 
16344] 
[33081 
LIFSAI 
15048] 
[4EB4] 
LF6A4I 
179861 
L685EI 
L@E38I 
[53D61 
15868] 
A328] 
L3E7AIJ 
LECCEI 
1D264] 
19952) 
L1@D43 
136501 
18456] 


CAADa1 


Listing 1. Mit dem Basic-Lader erzeugen Sie das Binärfeld. 


Für andere 


ime müssen Sie dieses mit 


Program: 
SZB UARHRSA 227 ARBSRCR Enz SAVE "EI N b.&:A000,8.18180« speichern 


REM Anlegen einer relativen Datei 
un "dummy": MEMORY HIMEM-1:CLOSEO 


OPENOUT "reldatei" 
FOR i=1 


TO 308 c 
PRINT#9, RIGHT$("{2 SPACEI"+STRE(),S 


)+", Datensatz" 


NEXT 
PRINT#9 ,SPACE$ (128) ;SPACE$ (128) 
CLOseoUr 


Listing 2. Die relative Datei wird mit einer 
sequenziellen erzeugt 


schieht mit »SAVE »ERWBIN«B&A 
000,&17F«. Sie können dann in Ihr 
Programm eine Ladeanweisung für 
dasdes Maschinencode-Programms 
einsetzen. Zuvor muß jedoch die 
Speicherobergrenze auf 9FFFhex 
herabgesetzt werden. 

In Listing 2 finden Sie ein Beispiel, 
das eine relative Datei als sequen- 
tielle Datei anlegt. Zeile 20 reser- 
viert einen Ein-/Ausgabepuffer, wor- 
auf Zeile 30 die sequentielle Datei 
»reldatei« öffnet. Anschließend wer- 
den in einer FOR..NEXT-Schleife 


ELLE 


300 Datensätze mit folgendem Inhalt 
auf Diskette geschrieben: 

1. Datensatz 

2. Datensatz 


300. Datensatz 

Jeder Datensatz ist 14 Zeichen 
lang. Beim sequentiellen Schreiben 
wird automatisch ein CR und LF an- 
gefügt, so daß wir beim relativen Le- 
sen und Schreiben von einer Daten- 
satzlänge mit 16 Zeichen ausgehen 


müssen. Zeile 70 schreibt schließ- 
lich sicherheitshalber noch zwei 
Leerstrings mit je 128 Bytes auf Dis- 
kette. 

Nun wollen wir die Datei per Di- 
rektzugriff lesen. Wir beginnen mit 
dern 300. Datensatz und hören mit 
dem 1. auf (Listing 3). Zeile 20 öffnet 
wieder die Datei »reldatei«, diesmal 
aber zum relativen Lesen. Zeile 40 
definiert den String a$, in dem die 
Datensätze abgelegt werden sollen. 
Die absolute Position z des Datensat- 
zes in der Datei errechnet sich in 
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Zeile 50. Zeile 60 liest den Datensatz 
aufgrund der Angaben in z und a$. 
Als letztes Beispiel noch ein Pro- 
gramm, das es Ihnen erlaubt, einen 
bestimmten Datensatz neu zu schrei- 
ben, Achten Sie darauf, die relative 
Datei auch hier mit OPENIN zum 
Schreiben zu öffnen (Listing 4). 

Das Programm fragt, welcher Da- 
tensatz neu geschrieben werden 
soll. Esfolgt eine Abfrage auf Gültig- 
keit der Datensatznummer. Dann 
wird der betreffende Satz zunächst 
gelesen, um den Inhalt zu kennen 
Geben Sie ihn daraufhin neu ein 
Zeile 100 formt ihn in die richtige 
Länge von 14 Zeichen um, wonach 
er in Zeile 110 auf Diskette abgelegt 
wird. 

Als ausführliches Beispiel für eine 
relative Dateiverwaltung soll das 
komplette Adressenverwaltungs- 
programm (Listing 5) dienen. Es ist 
modular aufgebaut und menüge- 
steuert. Inleicht abgeänderter Form 
kann es auch für jede andere Art 
von Dateiverwaltung eingesetzt wer- 
den. 

Das Programm benutzt eine in- 
dexsequentielle Dateiverwaltung. 
Indexsequentiell bedeutet, daß die 
Nummer und ein spezieller Index 
von jedem Datensatz zusätzlich in ei- 
ner sequentiellen Datei abgelegt 
werden. Diese werden dann zusam- 
men mit der relativen Datei auf Dis- 
kette geschrieben. Dieser Index 
dient als Suchkriterium zum Auffin- 
den eines Datensatzes. 

Für unser Adressenverwaltungs- 
programm wurde der Nachname 
als Index gewählt. Bevor nun Daten- 
sätze angelegt oder bearbeitet wer- 
den können, lädtman die Indexdatei 
in den Arbeitsspeicher des Compu- 
ters. Sie bleibt dort so lange, wie wir 
mit der relativen Datei arbeiten und 
wird im Anschluß daran wieder auf 
Diskette zurück geschrieben. 

‚Wenn wir nun einen Datensatz an- 
legen, »weiß« die Indexdatei bereits, 


1@ REM Datensatz schreiben 
28 OPENIN "reldatei" 

3@ INPUT "Datensatz-Nr.";i 

40 IF i<1 OR i>3@8 THEN S@ 

5@ a$=SPACES (14) 

68 z=(i-1)#16 

7@ !RECREAD,@z ,@a$ 

88 PRINT as 

9@ INPUT "Neuer Datensatz";as 
18@ a$=LEFT$ (a$+SPACE$ (14) „14) 
11@ !RECWRITE,@z „@a$ 

12@ CLOSEIN 


Listing 4. Schreiben einer relativen Datei 


welche Einträge belegt und welche 
noch frei sind. Sie sucht den nächst- 
verfügbaren Eintrag heraus und 
legt dort den Datensatz ab. Gleich- 
zeitig erhält auch die Indexdatei ei- 
nen neuen Eintrag, derden Nachna- 
men als Index und die dazugehöri- 
ge Datensatznummer enthält. 

Suchen wir nun umgekehrt einen 
Datensatz (beispielsweise zum Na- 
men Müller), so wird zunächst die In- 
dexdatei durchsucht, um festzustel- 
len, ob der Satzüberhauptinder Da- 
tei vorhanden ist. Ist dies der Fall, so 
steht auch gleichzeitig die Nummer 
des fortlaufenden Eintrags zur Ver- 
fügung. Dieser kann dann leicht auf- 
gerufen werden. 

Werfen wir einen Blick auf das 
Menü, dasSie nach dem Starten des 
Programms auf dem Bildschirm fin- 
den (Bild ]). 

Es ist bereits bekannt, daß wir, um’ 
Eintragungen vornehmen zu kön- 
nen, eine relative Datei anlegen 
müssen. Genau dies geschieht 
durch den Menüpunkt 5. Zusätzlich 
wird hier noch die Indexdatei er- 
zeugt und auf Diskette geschrieben. 
Wenn Sie sich nun das Disketten-In- 
haltsverzeichnis ansehen, enthält es 
eine relative und eine sequentielle 
Datei. Beide sind neu angelegt und 
habennochkeine Einträge. Damites 
keine Verwechslungen mit den Da- 
teinamen gibt, erhält die relative Da- 
teieinen frei wählbaren Namen und 
die sequentielle Indexdatei den 
gleichen Namen mit der Extension 
».IND«. Heißt eine Datei »KUNDEN«, 
so erhält die relative Datei den Na- 
men»KUNDEN.«, die Indexdatei die 
Bezeichnung »KUNDEN.IND« 

Bevor Sie nun Datensätze anlegen 
oder bearbeiten können, müssen 
Sie auf jeden Fall Menüpunkt 4 an- 
wählen, der die relative Datei öffnet. 
Öffnen ist hier nicht nur unbedingt 
im Sinne der OPENIN- oder OPEN- 
OUT-Anweisung zu verstehen, son- 
dern bedeutet vielmehr eine Initiali- 


sierung der Adressendatei. Dabei 
wird die Indexdatei in den Speicher 
geladen und gleichzeitig festge- 
stellt, welche Einträge belegt und 
welche noch frei sind. 

Nach dem Öffnen können Sie Me- 
nüpunkt 1 anwählen, worauf Sie auf 
gefordert werden, verschiedene 
Daten einzugeben (Bild 2). 

Direkt unter der Überschrift be- 
findet sich eine Zahl, die angibt, der 
wievielte Datensatz gerade bear- 
beitet wird. In diesem Fall ist es der 
fünfzehnte. Bevor Sie nun die eigent- 
lichen Daten eingeben, erscheint 
unter der fortlaufenden Nummer zu- 
nächst die Aufforderung, den Code 
für die Anrede einzugeben, wäh- 
rend der Rest des Bildschirms noch 
leer bleibt. Bei der Anrede können 
Sie unter sechs Möglichkeiten aus- 
wählen: 


Diese Codes sollten Sie sich vor- 
her merken oder notieren, da sie 
einfacher einzugeben sind, als im- 
mer wieder die gesamte Anrede, 
Nach dem Drücken der Enter-Taste 
erscheint als nächstes die Aufforde- 
rung zur Eingabe des (Nach-)Na- 
mens. Sie geben ihn ein und 
drücken wiederum die Enter-Taste. 
Das gleiche wiederholt sich dann 
für die Straße und den Ort mit Post- 
leitzahl. Ist ein Datensatz komplett, 
erscheint unten im Bildschirm der 
Hinweis, entweder die Enter- oder 
die Leertaste zu drücken. Letztere 
führt Sie wieder zurück ins Menü, 
die Enter-Taste gleich zum nächsten 
Datensatz. Der Vorgang wiederholt 
sich dann von vorne, allerdings mit 
einer um eins erhöhten Datensatz- 


Adressenverwaltung 


nummer, 


Etiket 
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Achten Sie aber darauf, daß die 
einzelnen Eingabewerte eine be- 
stimmte Anzahl von Zeichen nicht 
überschreiten dürfen: 


Name 15 Zeichen 
Vorname 15 Zeichen 
Straße 20 Zeichen 
PLZ/Ort 21 Zeichen 


Kommen wir zum zweiten Menü- 
punkt, der zum Ändern und Lö- 
schen von Adressen dient. Sie wer- 
den zunächst aufgefordert, den be- 
treffenden Namen als Suchindex 
einzugeben. Daraufhin schaut das 
Programm nach, ob dieser Name in 
der Datei vorhanden ist, Wenn nein, 
erscheint ein Hinweis »Nicht gefun- 
den« und Sie können den nächsten 
Namen suchen oder ins Menü zu- 
rückkehren. 

Wurde der Name dagegen gefun- 
den, wird der komplette Datensatz 
auf dem Bildschirm ausgegeben 
(ähnlich wie unter Menüpunkt 1, wo- 
beider Cursor eine Zeile unter dem 
Anredecode steht). Wünschen Sie 
keine Änderung vorzunehmen, 
drücken Sie einfach die Enter-Taste. 
Anderenfalls schreiben Sie den 
neuen Datenwert unmittelbar unter 
den alten und drücken ebenfalls die 
EnterTaste. Nach Beendigung des 
Korrekturvorgangs können Sie wie 
in Punkt 1 entweder fortfahren (En- 


ter-Taste) oder ins Menü zurückkeh- 
zen. 

Soll ein Datensatz gelöscht wer- 
den, wählen Sie ebenfalls Menü- 
punkt 2 und überschreiben den An- 
redecode mit dem Buchstaben |. 
Dann drücken Sie die Enter-Taste, 
worauf der betreffende Datensatz 
aus der Indexdatei entfernt wird, In 
der relativen Datei bleibt er jedoch 
zunächst erhalten; er ist aber für ei- 
nen neuen Eintrag freigegeben und 
kann mit einer neuen Adresse über- 
schrieben werden 

Menüpunkt 3 sortiert die Daten- 
sätze in alphabetischer Reihenfolge 
nach dem Shell-Sortierverfahren. 
Sortiert wird lediglich die Indexda- 
tei, Inder relativen Dateiändertssich 
nichts. 

Die letzten beiden Menüpunkte 
dienen zum Ausdrucken der Datei. 
Punkt 6 liefert einen normalen Li- 
stenausdruck, während Sie mit 
Punkt 7 Etiketten beschriften kön- 
nen. Dabei wird davon ausgegan- 
gen, daß die Etiketten genau 9 
Druckzeilen auseinanderliegen. Je- 
doch kann das Programm auch für 
andere Etikettengrößen leicht ange- 
paßt werden. 

Bei Abschluß der Bearbeitung ist 
unbedingt die E-Taste zu drücken, 
damit die Indexdatei wieder aufDis- 
kette geschrieben wird. Wird dies 
unterlassen, können beim Wieder- 


Bild 2. 
Die Eingabemaske 


einlesen schlimme Folgen auftreten; 
besonders dann, wenn Datensätze 
gelöscht oder geändert wurden. 

Hier noch ein paar Anmerkungen 
zum Listing. Zunächst wird das 
Maschinencode-Programm »ERW 
BIN« geladen und initialisiert (siehe 
oben), falls es sich noch nicht im 
Speicher befindet. Anschließend 
wird die maximale Anzahl der Da- 
tensätze auf 200 festgelegt (sie kann 
jedoch gegebenenfalls geändert 
werden). Es folgt die Definition der 
einzelnen Stringlängen. 

Das Anlegen der relativen Datei 
erfolgt? wiederum sequentiell. 
Gleichzeitig wird auch die Indexda- 
tei erzeugt und auf Diskette ge- 
schrieben. Abgelegt im Feld n${i), in 
das sie auch später zur Bearbeitung 
der Datei eingelesen wird, ver- 
bleibt sie während der gesamten 
Bearbeitungsdauer im Speicher. Da 
die Indexdatei noch leer ist, wird als 
erster Wert die Zahl Null hineinge- 
schrieben, gefolgt von 200 Elemen- 
ten, die aus 15 Sternchen und der 
fortlaufenden Datensatznummer 
bestehen. 

0 


ae] 
ed, 
BE 1 


und so weiter. 

Die Sternchen kennzeichnen ei- 
nen leeren oder als gelöscht ge- 
kennzeichneten Eintrag. Wird der 
Eintrag später belegt, erscheint 
oben statt der Null die Anzahl der 
belegten Einträge und statt der 
Sternchen der betreffende Name 
als Suchindex, 

Beim »Öffnen« der relativen Datei 
wird lediglich die Indexdatei einge- 
lesen. Vorausgesetzt wird, daß, 
wenn sich eine Indexdatei auf der 
Diskette befindet, auch die zugehö- 
rige relative Datei vorhanden sein 
muß, Wird die Indexdatei nicht ge- 
funden, erscheint die Amsdos-Feh- 
lermeldung »(Filename) not found«. 

(Jürgen Hückstädt) 


1090 REM Adressenverwaltungsprogramm (re 1180 10=21:REM Zeichen Laenge PLZ/Ort [339E1 
lativ) 108521 119@ la=1:REM Zeichen Laenge Anredecode LD948] 
1010 REM=====uunn0nunnnnnnnnnennn 1290 f1=@:REM Flag ob Datei im Speicher [A736] 
 ..—— [3348] 121@ r1=74:REM Recordlaenge+2 (cr/1#) LCS2EI 
1920 REM fuer CPC 464, 664 und 6128 CDA221 122@ cl$=CHR$(8):REM Cursor nach links LAZACI 
1038 REI LBCFA3 123@ er$=CHR$(F) REM Cursor nach rechts L7F8C] 
1240 en (ec) Juergen Hueckstaedt C2844] 1240 cd$=CHR$ (10):REM Cursor nach unten LDEO4] 
1050 Richard-Wagner-Str. 29 L94AE1 125@ cu$=CHR$(11):REM Cursor nach oben L[2EIEI 
1aso Rem 7318 Plochingen [46BA1 1268 1=In+lv+ls+lo+la+i £ L&BBA] 
1907@ IF PEEK(&ABBB)=1 AND PEEK(LAQQ1)=1B EPPETPLLEETTRFEL U En een 19174] 
THEN 1128 tE7881 (36 SPACE)" EC7FCI 
1080 MEMORY &PIFFF [74263 127@ DIM n$(ma) L752E] 
1998 LOAD "erwbin" ‚LABaa CA1S0] 1598 DIM ars(5) EagBe) 
1100 CALL &AQ2D L9F2AI 1310 ars(@)= TF4BC] 
1110 OPENDUT "dummy" :MEMORY HIMEM-1:CLO L99BEI 
SEDUT L7BCC1 [4401 
1120 ma=2@@: REM max.Anzahl der Datensaet ECSFEI 
ze 185981 CAIFA] 
113@ MODE 1 CQ&B61 ECCAEI 
1140 k=@:REM Datensaetze im Speicher L087A1 CCE4AI 
115@ In=15:REM Zeichen Laenge Namen CABC61 ED14C1 
116@ 1v=15:REM Zeichen Laenge Vornamen LLC861 a [D44E1 
117@ 1s=28:REM Zeichen Laenge Strasse [DABSI “ Eine ‚Adreßverwaltung mit direktem Datenzugriff 


a 87 


a Ka Er a u 


1488 REM Menue 

141@ CLS 

1420 PRINT TAB(1@); 

1430 PRINT TAB(19); 

1448 PRINT 

1450 PRINT 

1468 PRINT "Adressen schreiben/fortschre 
iben{3 SPACEI1" 

147@ PRINT 

1488 PRINT "Adressen aendern/loeschen{1@ 
SPACEI2" 

1490 PRINT 

1508 PRINT "Adressen sortieren{17 SPACE} 


"Adressenverwaltung" 


1520 PRINT "Relative Datei oeffnen{13 SP 
ACEI4” 

1538 PRINT 

1548 PRINT "Relative Datei anlegent{13 sp 

1558 PRINT 

1560 PRINT "Adressen ausdruckent1& SPACE 

1578 PRINT 

158@ PRINT "Adressen auf Etiketten ausdr 
ucken(2 SPACE)?" 

159@ PRINT 

160@ PRINT 

1618 PRINT "E n d e{28 SPACEIe" 

1628 PRINT 

1650 PRINT 

1648 PRINT "Bitte waehlen Sie" 

1650 m$=INKEY$: IF m$="" THEN 1658 

1660 IF m$="e" THEN 4858 

1670 m=VAL (m$) 

1660 IF m<i OR m>7 THEN 165@ 

1690 ON m GOSUB 1748 „2220,3040,3348,363 
0,3990,4368 

1700 GOTO 1408 


S 
s 


1748 REM Adressen schreiben/fortschreibe 
n 


1758 CLS 

1768 PRINT 

177@ PRINT 

178@ PRINT "(4 SPACE}Adressen schreiben/ 
fortschreiben{4 SPACE)" 

179@ PRINT 

180@ PRINT 

1818 IF dn$="" THEN PRINT "Bitte Datei o 
effnen":60T0 2128 

1828 k=k+1 

1838 PRINT k 

1848 PRINT 

1858 IF k>ma THEN PRINT "Datei voll":G0T 
0 2098 

186@ PRINT "Anrede (B-5)";: INPUT as 

187@ a=VAL (a$) 

1888 IF a<@ OR a>5 OR LEN(a$)<>1 THEN PR 
INT cu$;:60T0 1868 

1898 PRINT 

1700 PRINT "Name{8 SPACE": INPUT nas 

1919 PRINT 

1920 na$=LEFT$ (na$+n$,In) 

193@ PRINT "Vorname{S SPACEI"+: INPUT nv# 


1948 PRINT 
1950 nv$=LEFT$ (nvs+n$,1v) 
1968 PRINT "Strasse(S SPACE} "z;: INPUT ns# 


1978 PRINT 

1980 ns$=LEFT$ (ns$+n$,1s) 

1998 PRINT "PLZ, Ort{4 SPACE)": INPUT no 
E2 


2000 no$=LEFT# (no$+n$,1o) 

2018 r$=nastnvs+ns$+no$+RIGHT$ (STRF(a) „1 
) +CHR$ (13) +CHR$ (19) 

292@ d=VAL(MID$ (n$ (k) „In+1,1@)) 

2030 po=rixd 

2048 OPENIN dns 

2050 !RECWRITE,@po,@r# 

2068 CLOSEIN 

2070 #l=1 

2088 n$(k)=nas+STR$ (d) 

2070 PRINT 

2108 PRINT 

211@ PRINT "Naechste Eingabe - Enter-Tas 
te druecken" 

2128 PRINT 

2138 PRINT "Zurueck ins Menue - Leertast 
e druecken 

2148 m$=INKEY$: IF m$="" THEN 2148 

2158 IF m$=CHR$(13) AND dn$<>"" THEN 174 
® 

2160 IF m$=" " THEN CLOSEIN:60T0 2188 

217@ G0TO 2148 

218@ RETURN 


[83661 
[18983 
CA148] 
LISCE] 
L9BECI 
CB4EE] 


LE9241 
CAAF2] 


CDBB4] 
[B8F6] 


C18B4] 
CBCEB] 


CBAE2] 
[96EC9 


192DA] 
CABF@I 


LBBSAJ 
L9AF4] 


15612] 
[74F8] 
[DBEB] 
12834] 
[DSECI 
ECEEE] 
CAB321 
L7C28] 
LABASI 
[28BA] 
[SFECI 


CD4261 
T9ADCI 
004461 
CBF48] 
1D24A1 


cC52A1 
L229E1 
CABF&I] 
CAZF@] 


LBABCI 
ED@FCI 
LD7ECI 


[BE9BI 
[CFB4] 
LF9@BI 
EDSF4] 


LFA2CI 
L45B8] 
[BBBEI 


[98381 
[BBFE) 
C1DEBI 
LDCF@I 
[DGE4I 


CB586) 
LC1F6] 
TEB4EI 


CAC2@] 
[D2FCI 
CF6421 


169@21 
CAF@A] 


L4E82] 
LCDBA] 
£C1DA] 
TABBA] 
[3@2AJ 
[SEA] 
1[5C52] 
L62CA3 
L77F@] 
L9AEBI 


LDFAAI 
CCBEA] 


[13521 
CF114] 


CBASAI 
£B748J 
C5B141 
LC896] 
C@B4C] 
[C43C1 
LC73E1 


REM Adressen aendern/loeschen 187381 
CLS C1B92] 
PRINT CBBEA] 
PRINT C9FECI 
PRINT "(7 SPACE}Adressen aendern/lo 


eschen" C71DA1 


PRINT CASF®] 
PRINT LOCF2] 
IF dn$="" THEN PRINT "Bitte Datei o 


effnen":60T0 2948 L7CAAI 


PRINT _"Name{8 SPACE}";: INPUT nas C76DE1 
na$s=LEFT$ (na$+n$, In) [16081 
i=1 EFB7C) 
WHILE i<=k £119C] 
IF LEFT$(n$(i),In)=na$ THEN 2408 L&CDEI 
i=i+1l LD9AAI 
WEND 10532] 
PRINT LODF21 
PRINT "nicht gefunden" [2FC®] 
60T0 2918 [6E261 
d=VAL (MID$ (n$ ti) ‚In+1,1@)) C5B8A] 
r#=SPACE$ (r1-2) CD@B@] 
po=r1#d LSAEB] 
OPENIN dns LAB9B] 
!RECREAD,,@po,@r$ CCC52] 
CLOSEIN LAFF@I 


CDBB®] 
LFO@E] 
LATIEI 
105241 


na$=LEFT$(r$,In) 

nvs=MID$ (r#,iIn+1,1v) 
ns$=MID$ (r$.In+1v+1,.15) 
no$s=MID$ (r$,In+lv+ls+1,10) 


a$=RIGHT$ (r$,1) [821E) 
PRINT i CDDFCI 
PRINT CABECI 


PRINT "Anrede (8-5) (2 SPACE: 
PRINT 

PRINT "Name{1® SPACE} ";na$ 
PRINT 

PRINT "Vorname{7 SPACE} "nv# 
PRINT 

PRINT "Strasse(7 SPACE}"ıns$ 
PRINT 

PRINT "PLZ, Ort{& SPACE} ":nos 
FOR q=1 TO S:PRINT cu$;:NEXT q 
FOR q=1 TO 12:PRINT cr$::NEXT qzINP 
UT mus 

IF ww$<>""THEN aszwn$ 
a=VAL(a$) 

IF a$="1" THEN GOSUB 4788:60T0 2918 


IF a<® OR a>5 OR LEN(a$)<>1 THEN PR 
INT cu$;:80T0 2638 
PRINT 

FOR a=1 TO 12:PRINT cr$z:NEXT qs INP 
UT ms 

IF mws<>"" THEN naszwws 
PRINT 

na$=LEFT$ (na$+n$, In) 
FOR q=1 TO 12:PRINT cr$5:NEXT gzINP 
UT wms 

IF wws<>"" THEN nvszwns 
PRINT 

nv$=LEFT$ (nv$+n$,1v) 
FOR q=1 TO 12:PRINT er$::NEXT qzINP 
UT ns 

IF mws<>"" THEN nssewws 
PRINT 

ns$=LEFT$ (ns$+n$,1s) 
FOR q=1 TO 12:PRINT cr$;:NEXT gzINP 
UT ws 

IF ww&<>"" THEN nosewws 
no$=LEFT$ (no$+n$,10) 
r$=na$+nv$+ns$+no$+RIGHT$ (STR$ (a) „1 
I +CHR$ (13) +CHR$ (18) 

d=VAL (MID$ (n$(i) „In+1,1@)) 


1725AJ 
L96FB] 
LEF98] 
LBCF4] 
CC6B41 
ED2FB] 
LCICCI 
EB4EA] 
L169AJ 
[1426] 


[26781 
[DS1C1 
[80881 


[82981 


LFE241 
CCCFAI 


LEC7CI 
[B432] 
[C7EEI 
LAGE2I 


194721 
L6F641 
CABF6] 
[9D4EI 


1597A1 
TEE&6] 
CBFFE] 
[1532] 


LCC7@1 
CDES41 
[85201 


LF498] 
[B79C3 


OPENIN dns CCC9EI 
po=r1#d CBDF2] 
!RECWRITE „@po,@r$ 15340] 
CLOSEIN 15C0@] 
n$(i)=na$+STR$(d) [46083 
PRINT L13F2] 
PRINT t80F4J 


PRINT "Naechste Eingabe - Enter-Tas 
te druecken" 
PRINT 

PRINT "Zurueck ins Menue - Leertast 
e druecken 

m$=INKEY$: IF m$="" THEN 2968 
IF m$=CHR$(13) AND dn$<>"" THEN 222 


o 
IF m$=" "THEN 3000 


L47BE] 
[DEFB] 


[25661 
1[D33CJ 


tBF42] 


T4ECC] 
60T0 2948 £933C1 
RETURN [89861 
D) CBESCI 
z CC33E] 
Fi CC@481 
REM Adressen sortieren [8336] 
CLS 106941 
PRINT L9BECI 
PRINT [B4EE] 
PRINT "{1® SPACE)Adressen sortieren 
{7 SPACEI" 192581 
PRINT [BEF21 


PRINT TBSE2I PRINT LCCE6I 
g=INT (k/2) 111221 PRINT "(7 SPACE}Adressen ausdrucken 
WHILE g>@ [SFABI <11 SPACEI" 1Aa441 
FOR i=g+1 TO k L6D4A] PRINT CBAEAI 
j=i-g [66181 PRINT LALECI 
WHILE j>@ [BCB4J OPENIN dns CAC921 
IF n$(j)<=n$(j+g) THEN j=@:60T0 321 FOR i=1 TO k L952E1 
[) L64BA1 d=VAL (MID$ (n$(i) „In+1,19)) [4796] 
asens(j+g) [71181 po=r1xd LSDEAI 
n$(j+g)=n$ (5) EB1AAI r$=SPACE$ (r1-2) CB1ACI 
ns j)=as [29F8] !RECREAD ‚@po,@r$ LES4AJ 
3=j-g [16141 PRINT#B,LEFT$(r$, In); L1SE4] 
WEND [18281 PRINTRB," "+ [3836] 
NEXT ED94C1 PRINT#8,MID$(r$,In+1,1v)3 CD11A] 
g=INT (9/2) 12C283 PRINT#B," "; LABsA] 
WEND LZE2EI PRINT#8,MID$ (r$,In+lv+1,1s)3 [7232] 
PRINT tCEEEI PRINTHE," *; L383E] 
PRINT CBBF@] PRINT#8,MID$ (r$,In+1v+1s+1,10); 10442] 
PRINT "{1® SPACE)Zurueck ins Menue" PRINT#B," "; 11842] 
128141 PRINT#8,RIGHT$ (r$,1) tDDC®I 
PRINT "t7 SPACE)beliebige Taste dru IF i-INT(i/64)*64°>® THEN 4250 L45C4] 
ecken" 12DD81 FOR j=1 TO 8 C6DC41 
m$=INKEYS: IF m#=""THEN 3290 {38F@1 PRINTRB £7CA2] 
RETURN tecacı NEXT 3 CAS661 
N LBA421 NEXT i 195661 
D 109441 CLOSEIN CSAF23 
ı LCC461 PRINT C9FFA] 
REM Relative Datei oeffnen [A464] PRINT EC2F6] 
CLS £149A] PRINT "{1@ SPACE)Zurueck ins Menue" 
PRINT ECDF2] £[D31AJ 
PRINT L94F4] PRINT "(7 SPACE}beliebige Taste dru 
PRINT "t& SPACE}Relative Datei oeff ecken" 178C41 
nent7 SPACE)" 103861 m£=INKEY$: IF m$="" THEN 4318 t3A18] 
PRINT [D6FBI RETURN [8692] 
PRINT EDDEBI = £C348] 
INPUT "Dateiname";dns [E62AJ [D44A1 
PRINT ED7ECI ED14CI 
i=d {F9a@] REM Adressen auf Etiketten drucken L[36B61 
OPENIN dns+".ind" 15544) CLS LOBABI 
#1=® LAES&I PRINT [D4FB] 
INPUT#F.k LFIE@] PRINT LODFAI 
PRINT k [BS0C9 PRINT " Adressen auf Etiketten ausd 
IF k>® THEN #1=1 £DDacı rucken" 19558] 
IF i=ma THEN PRINT "Datei voll":60T PRINT C9DECI 
6 3538 Las2a] PRINT LACEE] 
i=i+1 [95A6] OPENIN dns CBB941 
INPUT#9 .n$(i) LAF9A) FOR i=1 TO k 19530] 
IF EOF=8 THEN 3498 [7C3E] g=VAL (MID$ (n$ Ci) .In+1,10)) [F398] 
CLOSEIN [54F@] r&=SPACES (r1-2) [S1BEI 
PRINT [B7F2] po=ri#d L97EEI 
PRINT LIEF] :RECREAD, @po,er$ C18SEI 
PRINT "(10 SPACE}Zurueck ins Menue" PRINT#B C7EB2] 
[B9183 PRINT#B [61A2] 
PRINT "(7 SPACE)beliebige Taste dru a=VAL(RIGHT£(r$#,1)) C6F441 
ecken CB@D4] PRINT#B,ar$ (a) 1C95@1 
m&=INKEY$: IF m$="" THEN 3588 15638] PRINT#B,LEFT£ (r$,In+lv) EFD923 
RETURN [CaA21 PRINT#8,MID£ (r&,In+lv+1,15) £C7C8] 
® [05463 5;@ PRINTHB CS2AC1 
ı 10248] PRINT#8,MID£ (r$,In+lv+1s+1,10) LE2DB1 
2 10344] PRINT#B C&CBB] 
REM Relative Datei anlegen [555A] PRINT#B £C9B2] 
CLS 12393 NEXT i 19A741 
PRINT [BöF6] CLOSEIN L64EE] 
PRINT LASFBJ PRINT CAIFBI 
PRINT "{7 SPACE}Relative Datei anle PRINT CBAF2] 
en{1® SPACE)" 12C7C3 PRINT "{1® SPACE)Zurueck ins Menue" 
RINT [DIFC] 165163 
PRINT E@AFEI PRINT "(7 SPACE)beliebige Taste dru 
INPUT "Dateiname":dn$s LBFZEI ecken" c1@D21 
PRINT [BEF®] m$=INKEY$: IF m#=""THEN 4658 LAAF4I 
r$=SPACE$ (r1-2) +CHR$(IS)+CHRS (IB) LEISBI RETURN LCBAB] 
OPENOUT dns E3C5AJ £C356] 
FOR i=® TO ma [83F81 cD258] 
PRINT iscus 151783 z £C55A] 
PRINTHF,r#3 TEZACI REM Datensatz loeschen CAaıcı 
NEXT i 184723 z$=LEFTS (g$, In) +MID$ (n$(i) ‚In+1,1@) 
PRINT#9 ,SPACE$ (128) ;SPACE$ (128): EC2EAI cacsaı 
CLOSEOUT [66021 FOR j=i+1 TO k L345CJ 
OPENDUT dn$+".ind" [28061 ns(j-1)ens(i) EDB46] 
PRINT#7,0 L@D623 NEXT 3 £B87@] 
FOR i=1 "TO ma t@BF81 n£(k)=z$ 127321 
PRINT iscuf 18576] k=k-i EB2C4] 
n£(i)=LEFTE (g$,In)+STREC) [1756] FOR a=1 TO 8:PRINT cd$s: NEXT q 123541 
PRINT#9,n&(i) 192A2] PRINT "geloescht" [D8441 
NEXT i tE1721 PRINT cu$;cu$: [741E1 
CLOSEOUT L69CB] IF k=@ THEN f1=® tA2421 
#l=1 [6666] RETURN ECB9AI 
k=@ LF398] z 1Da50] 
PRINT CD3F21 . [E7521 
PRINT EDAFAI 2 [E2541 
PRINT "t1@ SPACEIZurueck ins Menue" REM Programm beenden LaAS61 
(95181 IF f1=@ THEN 4930 [34381 
PRINT "{7 SPACE}beliebige Taste dru OPENOUT dn$+".ind" LaE161 
ecken" L6CD41 PRINT#9,k t@3E8] 
m$=INKEY$: IF m$="" THEN 3948 L4E38] 4898 FOR i=1 TO ma TAABaı 
URN tc4A21 4990 PRINT#9.n$(i) £349C1 
ECDS8J 491@ NEXT L465A1 
[E@SAJ 4928 CLOSEOUT ESCBAI 
2; £D3SC] 4930 END [SFBEI 
REM Adressendatei ausdrucken [66141 Listing 5 4 


CLS L1EBCI 
PRINT T9DE4I Eine Adreßverwaltung mit direktem Datenzugriff (Schluß) 


CPI/M-Grundlagen 


»Wanzen-Tod« 


mit DDT 


Auf der CP/M-Diskette von 
Schneider finden Sie unter anderem 
einen leistungsfähigen Maschinen- 
sprache-Mlonitor. Was fehlt, ist 

eine Beschreibung im Handbuch. 


eine Sorge, wir empfehlen hier 
keineswegs den Einsatz des In- 
sektenvertilgungsmittels DDT, 
Wir haben etwas besseres. Zu jeder 
Schneider-Diskettenstation mit dem 
CP/M-Betriebssystem gehören di- 
verse Hilfsprogramme. Unter ande- 
rem auch das Dynamic Debugging 
Tool, kurz DDTCOM genannt. Mit 
diesem leistungsfähigen Maschi- 
nensprache-Monitor können Sie in 
Ihren Programmen auf die Suche 
nach Bugs (Wanzen beziehungswei- 
se Programmierfehlern) gehen. 
Leider konnte sich Schneider 
nicht dazu entschließen, die Dienst- 
programme auf der CP/M-Diskette 
eingehend zu beschreiben. In der 
Betriebsanleitung wird kurz und 
bündig auf die »weiterführende Lite- 
ratur« verwiesen. 


Einer für (fast) alle 


Die Aufgabe eines Standard-Be- 
triebssystems läßt sich kurz etwa so 
beschreiben: Es soll für Programme 
die gleiche Umgebung auf einer 
Vielzahl verschiedener Computer 
schaffen. Dazu müssen gewisse Vor- 
aussetzungen in der Hardware ge- 
geben sein. Am wichtigsten ist da- 
bei die Verwendung gleichartiger 
Mikroprozessoren (CPUs). 

Das Betriebssystem CP/M 2.2 
(manchmal auch CP/M-80 genannt), 
läuft auf drei verschiedenen Prozes- 
soren: dem Intel 8080, dem Intel 
8085 und dem Zilog Z80, von dem 
der Typ Z80A in den Schneider- 
Computern eingebaut ist. Einsichtig 
magnoch sein, daß der 8085 kompa- 
tibel zum 8080 ist und damit für 
CP/M verwendet werden kann. Der 
Z80 hingegen besitzt eine Ausnah- 
mestellung: er ist, obwohl von einer 
anderen Firma produziert, eine 
Weiterentwicklung der 8080/8085- 
Reihe. So verfügt er zusätzlich über 
relative Sprünge, die beiden Index- 
Register IX und IY, einen zweiten Re- 


gistersatz, Makrobefehle wie LDI, 
LDIR, LDD und LDDR zur Blockver- 
schiebung und andere Program- 
mierer-freundliche Erweiterungen. 
Damit aber Programme auf allen 
CP/M-geeigneten 8-Bit-Prozessoren 
laufen, sollte sich der Anwender — 
auch wenn es schwer fällt — auf die 
auf allen CPUs vorhandenen Befeh- 
le beschränken. Wer dagegen nur 
Schneider-Programme schreiben 
will, kann den Befehlssatz des Z80 
voll ausschöpfen. 

Alle drei Mikroprozessoren co- 
dieren ihre Maschinenbefehle in 
gleicher Weise. So bedeutet der Co- 
de 60 hex (dezimal 96) auf allen drei 
CPUs, daß das H-Register mit dem 
Inhalt des B-Registers zu laden ist. 
Aus Urheberrechtsgründen konnte 
Zilog, der Z80-Hersteller, nicht die 
Standard-Bezeichnungen von Intel 
verwenden. So hat man sich völlig 
neue Mnemonics ausgedacht, die 
inzwischen bei den meisten Pro- 
grammierern beliebter sind als die 
8080-Originale. Das ist durchaus 
verständlich, da die Z80-Befehls- 
worte logischer aufgebaut und vor 
allem leichter zu erlemen sind. So 
entsprechen beispielsweise dem 
Z80-Allzweck-Ladebefehl LD in 
8080-Notation eine Vielzahl von 
Mnemonics: LXI, STAX, MVI, LDAX, 
SHLD, LHLD, STA, LDA, MOV und 
SPHL. 

Einige Beispiele, die die gegen- 
sätzliche »System-Philosophie« der 
Hardware-Designer beider Firmen 
zeigen: 


8080-Assembler: Z80-Assembler: 
MOV BC LDBC 

MVIE,3 LDE,3 

SHLD 2000 LD (2000),HL 
SPHL LDSP,HL 


Welchen Schneider-Besitzer soll 
das interessieren, werden Sie fra- 
gen, der CPC hat einen Z80 und kei- 
nen 8080 oder 8085! Ganz einfach: 
alle CP/M-Dienstprogramme, die 


auf der Systemdiskette mitgeliefe 
werden, bedienen sich der 8 
Mnemonics. Wollen Sie also unt« 
CP/M programmieren oder ganz) 
einfach das CP/M-Betriebssystem 
untersuchen, dann kommen Sie 
die ungewohnten 8080-Befehle ni 
herum! 

In Tabelle | haben wir die 8080 
Befehle und ihre Z80-Äquivalente in 
alphabetischer Reihenfolge zusam 
mengestellt. 

Der DDT-Debugger ist ein komfor- 
tabler Maschinensprache-Monitor, 
der zum Austesten und Verbesse: 
von eigenen und fremden Maschi: 
nenprogrammen unter CP/M ge 
dacht ist. So ist ein einfacher Asse: 
bler i e 


kann man sich Speicherinhalte aus“ 
geben lassen und ändern. 


DDT: Monitor mit Komfort 


haben, erscheint die Bereitschafts- 
meldung A>. Suchen Sie sich nun 
eine Diskette heraus, auf der sich 
das Programm DDT.COM befindet. 
Der DDT-Monitor kann auf zwei‘ 
Arten aufgerufen werden: 
mit »A>DDT« 
oder »A>DDT filenameext« 
Im ersten Fall wird einfach DDTV 
geladen und gestartet. Bei Angabe 
eines Dateinamens lädt der Debug- 
ger dieses Programm dazu. Es kann 
dann am normalen TPA-Beginn 
&0100 gefunden werden. (TPA ist die 
Transient Program Area, der für 
CP/M-Programme frei verfügbare 
Arbeitsspeicher) Der DDT ver- 
schiebt sich in diesem Fall automa- 
tisch an das obere Speicherende, 
Der Debugger meldet sich 
schlicht mit der Meldung: 
DDT VERS 2.2 
NEXT PC 
KXXX Yyyy 
Diese beiden Werte (xxxx und 
yyyy) sollte man sich aufschreiben, 
da sie beim späteren Speichern der 
Datei noch gebraucht werden. 
NEXT gibt an, ab welcher Adresse 
hinter dem geladenen Programm 
der Speicher wieder frei ist, PC 
zeigt den aktuellen Stand des Pro- 
grammzählers des Debug-Pro- 
gramms an, 
Der DDT verwendet ein eigenes 
Bereitschaftszeichen, den Binde- 
strich. Sobald dieser erscheint, kön- 
nen einbuchstabige Befehle einge- 


TEN 


tippt werden; Bei einem Teil der Be- 
fehle kann man auch Argumente an- 
geben: als Hexadezimalziffern, von- 
einander abgetrennt durch Leerzei- 
chen oder Kommas. Eine fehlerhafte 
Eingabe wird durch ein Fragezei- 
chen beantwortet. Alle Eingaben 
können wahlweise als Klein- oder 
Großbuchstaben gegeben werden. 
Die Befehle im einzelnen: 
Der Assemble-Befehl 
»A« steht für »Assemble«. Wie der 
Name schon sagt, wird dabei ein 
einfacher 8080-Assembler aufgeru- 
fen. Der Assembler versteht nur die 
normalen Mnemonics und Hexade- 
zimalzahlen, nicht hingegen Symbo- 
le, arithmetische Ausdrücke, Labels, 
Pseudo-Befehle wie DS (Define Spa- 
ce) oder DB (Define Byte) oder gar 
Kommandos zur bedingten Assem- 
blierung. Aufgrund der einge- 
schränkten Möglichkeiten ist er 
hauptsächlich für kleinere Ände- 
rungen an bestehenden Program- 
men gedacht. Z80-Programmierer 
seien nochmal auf die Vergleichsta- 
belle hingewiesen. Abgebrochen 
wird die Eingabe der Assembler- 
Mnemonics durch einen Punkt. 
Der Dump-Befehl 
»D« steht für »Dump«. Dieser Be- 
fehl gibt einen Hexadezimal- und 
ASCI-Dump eines Speicherbe- 
zeichs aufdem Bildschirm aus. Nicht 
darstellbare Symbole des Zeichen- 
satzes werden durch Punkte ersetzt. 
Der Dump-Befehl hat drei verschie- 
dene Formate: 
—D Dump von 12 Zeilen ab dem ak- 
tuellen PC-Stand 
—D0200 Dump von 12 Zeilen ab der 
angegebenen Adresse 
—D04,0A Dump zwischen zwei 
Adressen 
Die Bildschirmausgabe kann da- 
bei mit »Ctrl-S« eingefroren und 
durch Drücken einer beliebigen Ta- 
te fortgesetzt werden. Abgebro- 
chen wird der Dump-Befehl durch 
Drücken einer beliebigen Taste au- 
Ber »Ctrl-S«. 
Der Fill-Befehl 
'F« steht für »Fill«, einen Befehl zum 
Füllen eines Speicherbereichs mit 
einem bestimmten Wert. Das Format 
sieht so aus: 
—F2F00,3F'00,60 
Dieser Befehl füllt den Speicher 
von 2F00 bis 3F00 hex mit dem Hex- 
wert 60 hex. 
Der Go-Befehl 
3G« steht für »Go« und startet ein Ma- 
‚schinenprogramm an der angege- 
benen Adresse, So löst beispielswei- 
se »G0000« einen CP/M-Warmstart 
aus. Zusätzlich können noch bis zu 
ei Werte angegeben werden, bei 
denen der Programmlauf automa- 


tisch unterbrochen wird und ein 
Rücksprung zu DDT erfolgt. 
Der Hexcalc-Befehl 

»H« steht für »Hexadecimal Calcu- 
lation« und erlaubt die Subtraktion 
und Addition zweier Hexadezimal- 
Zahlen, Beispiel: 

—H0100,0001 

Dies ergibt 0101 hex als Additions- 
ergebnis und 00FF hex für die Sub- 
traktion. 

Der Input-Befehl 

»I« steht für »Input«. Das I-Kommando 
bereitet das Einlesen einer Disket- 
tendatei vor, Direkt nach dem »I« 
muß dazu der Dateiname eingege- 
ben werden, beispielsweise 
—IWSCOM 

Mit diesem Befehl würde das Ein- 
lesen von Wordstar (ws) vorbereitet. 
Wirklich eingelesen wird die Datei 
dann mit dem R-Befehl (siehe weiter 
unten). 

Der List-Befehl 

»L« steht für »List«, das den inte- 
grierten Disassembler aktiviert. Die 
Parameter entsprechen denen des 
Dump-Befehls. Die Mnemonics wer- 
den in der oben erklärten Intel- 
Schreibweise angegeben; Sie kön- 
nen dazu die Vergleichstabelle zu 
Rate ziehen, Nicht definierte Ma- 
schinencodes werden mit »3FAC 
??= 08« angezeigt. 

Problematisch wird es, wenn Sie 
mit dem L-Befehl das Floppy -ROM 
disassemblieren wollen. Dort ist 
der Hardware-abhängige Teil von 
CP/M, das BIOS (Basic Input/Output 
System) gespeichert, welches die 
Schnittstelle zwischen CP/M und 
den speziellen Eigenschaften des 
Schneiders darstellt. Die Program- 
mierer bei Amstrad (dem engli- 
schen Entwickler) haben selbstver- 
ständlich in Z80-Maschinencode 
programmiert, was zur Folge hat, 
daß auch Z80-Befehle ohne zugehö- 
rige 8080/8085-Pendants verwendet 
wurden, 

Keine Schwierigkeiten haben Sie 
hingegen, wenn Sie das BDOS, den 
CCP oder andere CP/M-Program- 
me auflisten lassen. BDOS und CCP 
wurden nämlich von Digital Re- 
search, dem »Erfinder« von CP/M, in 
8080-Assembler geschrieben. 

Der Move-Befehl 

»M« steht für »Move«, einen Befehl, 
mit dem man Speicherbereiche ver- 
schieben kann: 

—M0000, 0100,4500 kopiert den “= 
halt des Speichers von 0000 bis 0100 
hex nach 4800 bis 4600 hex (4800 + 
0100 hex) 

Der Read-Befehl 

»R« steht für »Read«; dieser Befehl 
liest eine mit dem I-Kommando vor- 
bereitete Datei in den RAM-Spei- 


cher. Dazu kann ein Offset angege- 
ben werden, der die Ladeadresse 
abhängig vom Beginn der TPA be- 
stimmt. R oder RO lädt die Datei an 
den Anfang der TPA bei 0100, R0200 
an die Adresse TPA +0200=0100+ 
0200=0300 (alles hex). 

Der Store-Befehl 

»S« steht für »Store«, Dieser einfa- 
che, aber dennoch leistungsfähige, 
Befehl gestattet die byteweise 
derung von Speicherbereichen. Ein 
S mit Enter übernimmt die letzte ver- 
wendete Adresse, es kann aber 
auch ausdrücklich eineneue Adres- 
se angegeben werden, Der DDT 
gibt die aktuelle Speicheradresse 
und deren Inhalt hexadezimal aus; 
daraufhin haben Sie die Möglich- 
keit, eine neue Ziffer (hexadezimal) 
einzutippen, die dann an der Adres- 
se gespeichert wird. Wollen Sie eine 
Adresse unverändert belassen, 
drücken Sie ganz einfach die En- 
ter-Taste. 

— 80600 

0600 FF 

0601 F3 

0602 AO 

0603 . 

Der Trace-Befehl 

»I« steht für WTrace«, Damit lassen 
sich Maschinenprogramme in Ein- 
zelschritten abarbeiten. Vergleich- 
bar ist der Befehl in etwa mit dem 
TRON-Kommando im Schneider-Ba- 
sic. 

Die Abarbeitung beginnt an der 
letzten verwendeten Adresse; ange- 
geben werden muß die Zahl der ab- 
zuarbeitenden Programmschritte. 
Sollen zum Beispiel die nächsten 15 
Maschinenbefehle ausgeführt wer- 
den, lautet Ihre Eingabe: 

—TOF 

Bei jedem Programmschritt er- 

folgt eine detaillierte Ausgabe der 


Prozessor-Register: 
CZMEIA=.. B=... D=... H=,, 
S=..P Kommando 


Die Abkürzungen haben folgen- 
de Bedeutung: 


C = Camy-Flag 

Z = Zero-Flag 

M = Minus-Flag 

E = Parity-Flag (E=even, gerade) 

I = Halfcarry-Flag (8080-Name: 
Interdigit Flag) 


= Akkumulator 

= Doppelregister BC 
= Doppelregister DE 
= Doppelregister HL 
= Stackpointer SP 

= Program Counter PC 


wamuwm 


Kommando zeigt den mnemoni- 
schen Code des ausgeführten Be- 
fehls an. 


CP/M-Grundlagen | 


E 
f 
e 


CPIM-Grundlagen 


Der Untrace-Befehl 

»U« steht für »Untrace«, eine Va- 
riante des Trace-Befehls. Die Einga- 
be entspricht der des T-Komman- 
dos. Der Unterschied liegt darin, 
daß nicht jeder ausgeführte Befehl 
angezeigt wird. Lediglich beim letz- 
ten Befehl erscheint die Zeile mit 
den Prozessor-Daten. 

Der Examine-Befehl 

»X« steht für »Examine«. Dieser 
»Untersuchungs«-Befehl zeigt den 
gegenwärtigen Inhalt der Prozes- 
sor-Register, genauso wie beim wIk«- 
oder »U«Kommando. Eine Variante 
des X-Befehls erlaubt die direkte 
Veränderung der CPU-Register, Da- 
zu wird der Registername unmittel- 
bar hinter dem »X« angegeben. Dar- 
aufhin erscheint der Registername 
und -inhalt; dieser kann dann nach 
Belieben verändert werden: 

—XB 
B = 0000 3FAC 

Mit diesem Befehl wird das BC- 
Register mit dem Wert 3FAC hex ge- 
laden. 

Nachdem Sie ein Programm mit 
all diesen Befehlen analysiert und 
eventuell verändert haben, wollen 
Sie es sicher auch abspeichern. Da- 
zu drücken Sie »Ctrl-C« oder geben 
»G0000« ein. Dies löst einen CP/M- 
Warmstart aus, und der CCP-Bedie- 
nungsprozessor wird aufgerufen. 
Zum Abspeichern als Binärdatei 
dient der residente CP/M-Befehl 
SAVE: 

»A>SAVE xx filenameext« 

Jetzt benötigen Sie wieder den 
Wert, der beim Start von DDT als 
NEXT angegeben wurde. Damit SA- 
VE weiß, wieviel Byte Sie abspei- 
chern wollen, müssen Sie die Zahl 
der belegten »Pages« (Speichersei- 
ten) errechnen. Eine Speicherseite 
ist 256 Byte lang. Sie nehmen des- 
halb von der NEXT-Zahl die ersten 
beiden Ziffern (das Highbyte). Bei 
NEXT=6400 hex wäre das 64 hex. 
Diesen Wert müssen Sie ins Dezi- 
malsystem umrechnen: 64 hex=100. 
Das Ergebnis kann dann bei SAVE 
angegeben werden — bis auf eine 
Ausnahme: Wenn das Lowbyte von 
NEXT Null ist — was gerade beim 
Beispiel 6400 hex zutrifft —, muß die 
Zahl der Pages um eins verringert 
werden. Der Befehl lautet dann so: 
»A>SAVE 99 FILECOM« 

Selbstverständlich kann der DDT 
— wie viele andere CP/M-Program- 
me auch — die Bildschirmausgaben 
auf dem Drucker mitprotokollieren. 
Dazu drücken Sie einfach »Ctrl-Pa. 
Abgeschaltet wird die Protokoll- 
funktion wiederum mit »Ctrl-Pe. 


Die Befehle des DDT 

Ä =Assemble Mnemonics eingeben und assemblieren 

D =Dump Speicherbereich hexadezimal und ASCII ausgeben 

F =Fi Speicherbereich füllen 

G =Go Maschinenprogramme mit Breakpoints aufrufen 

H = Hexcalc Hexadezimale Addition und Subtraktion 

I =Input Dateinamen zum Datei-Einlesen vorgeben 

L =list Disassembler-Funktion 

M =Mwe Speicherbereiche verschieben 

R =Read Datei in den Speicher lesen 

S  =Store Speicherbereiche hexadezimal abändern 

T =Trace Maschinenprogramme im Einzelschritt-Modus 

U = Untrace Wie Trace, jedoch ohne Ausgabe der CPU-Register 

X = Examine CPU-Register anzeigen und abändern 
Code 8080-Kommando Z20-Kommando Code 8080-Kommando Z80-Kommando 
CE AI br ADC Aby oc mR [2 Inc c 
eo ADC —_ ADC AR “m D Inc D 
8 ADC B ADC AB IC Im E Inc E 
8 ADC C ADC Ac 2% INR # Inc H 
aA ADC D ADC AD 2C NR 1 Inc L 
8 ADC E ADC AE # IR Mm INC au) 
sc ADC HM ADC AR ® mx B INC BC 
DD AI L ADC AL Bm DD Inc DE 
E MAC 0 M ADC Acu) 3 mx a Inc HL 
a MD A ADD AA Fe > Ge Inc sp 
© AD 8 ADD AB DA IC wo Pr Cwo 
a ADD c ADD AC MM wo r Mwo 
AD D ADD AD @ mM wo Fr wo 
8 ADD E ADD AE DB mc wo Fr NCwo 
4“ AD H ADD AH ca m wo r NZwo 
ss AD L ADD Al Rn pP wo r Pwo 
ss ADD M ADD AHL) EA JPE wo r PEwo 
© A by ADD Aby EB Po wo ji POwo 
MO ANA A AND Ä a 7 wo 2 Zwo 
20 ANA B AND B 3a ID wo ıD Aıo) 
MM ANA C AND c 0A DAX B ıD ABC) 
32 ANA D AND D A ıDaX D ıD AADE) 
RB ANA E AND E 2A LHID wo ıD HL(wo) 
aM ANA H AND # a m Bwo ID BCwo 
MB ANA L AND L um Dwe  1D DEwo 
BO AN M AND au) a m Hwo  LD HLwo 
BE O AN br AND by a m wo ID SPwo 
CD CA wo CALL wo m MV AA 1D AR 
De cc wo CALL Co m Mov AB 1D AB 
FC cM wo CALL Mao ®» Mmov ac ıD AL 
2E  CMA CPL 7A MoVv AD ıD AD 
3F _cMc Ccr RB MOV AE ıD AE 
BE CM A 2 A IC Mov AH ıD AH 
Bo cm B cr B m MV Au ıD Al 
B cm c cp c E MV AM iD AH) 
BR cm D cr D 47 MOV BA ıD BA 
Bo cM E [22 E “MOV BB ıD BB 
BC cM® u cp a a MOV BE ıD BC 
BD cm Lı cp L 2 MOV BD 1D BD 
BE cm M cp an “MOV BE 1D BE 
DB CNC ww CAuL NGwo 4 MOV BH ıD BH 
“CN ww CALL NZwo 4 MOV BL ıD BL 
Mo cp wo CALL Pwo “# MoV  BM ıD BEL) 
EC CPE wo CALL PEwo 4 MOV GA ıD ca 
FE oA by cp by # MOV CB ı1D CB 
Eco wo CAuL POwo “MOV ce ıD cc 
CC: CK wo CALL Zwo 4A MOV CD ıD sp 
7 DAA DAA 2 MOV GE ıD GE 
® DD B ADD HLBG “© MOV GH ıD SH 
®» DD D ADD ALDE 4 MOV GL ıD SL 
82 DD MH ADD HLAL 4E MOV CM ID Sam) 
8» DD ADD HLSP 7  Mov DA ıD DA 
DD DER A DEG Ei o®  Mov DB ıD DB 
8 DER B DEC B st  Mov De ıD DE 
® DER c DEC c 3 Mov DD ıD DD 
B» DR D DEC D 8 MOV DE ıD DE 
D DER E DEG E %* MOV DH ıD DH 
3 DR MH DEG # ss MOV DL ı1D DL 
2D DER L DEC L s Mov_ DM ıD DHL) 
SS DER M DEC au SF MOV EA ıD EA 
® De 8 DEC BC ss MoVv EB ıD EB 
B Dax D DEC DE 8 MOV EC ıD EC 
2 DK Hu DEC HL SA Mov ED ıD ED 
® Dx » DEC sp ® MOV EE ıD BE 
BR D D sc MOV EH ıD EH 
B El Bi DD MOV EL ıD EL 
” ur HALT E Mov EM ID EL) 
Bm br m Aby 7 MV HA ID HA 
Cm —_ INC A © MOV HB ıD HB 
“ MR B Inc 3 a MV He ıD HC 


Code 8080-Kommando Z80-Kommando 

@ MOV HD ıD HD 
8 Mov HE ıD HE 
@®  Mov HA LD HH 
6 MOV HL ıD HL 
6 Mov HM ıD Hal) 
ee MOV LA ıD LA 
8 MOV LB ıD LB 
®@ MoVv 16 ıD LE 
6A MOV LD ıD LD 
BE MOV LE ıD LE 
sc Mov LH ıD LH 
DD MOV UL ıD Lb 
®E MOV LM ıD LHL) 
7 Mo MA ıD AL)A 
2% Mo MB ıD DB 
2 Mov MC ıD auc 
2 Mov MD ıD @uD 
23 Mov ME ıD HL)E 
Aa Mov MH ıD AUH 
3 Mov ML ıD AuL 
3E MI Aby  1D Aby 
06 Mvi Bby ıD Aby 
0E MI Shy ıD Chr 
18 MV Dby ıD Dby 
IE MI Eby ıD Eby 
26 Mvi Hby ıD H,by 
22 Mı Lby ıD Lby 
3 Mvi M.by ıD Al)by 
© _ NOP NoP 

BB OR A OR A 

BD  ORA  B OR B 

3 RA C OR c 

BB OR D OR D 

B  ORA  E OR E 

BM OR H OR H 

B OR UL OR L 

B ORA M OR [;:} 
F6 OR by OR by 


Code 8080-Kommando Z80-Kommando 
DB o0UT m our byA 
E98 PCHL Pr an 
cı Pop B Pop BC 
DI Pop D POP DE 
EI POP H POP HL 
A Pop Psw POP 3 
cs PUH B PUSH BC 
Ds PUSH D PUSH DE 
E PIE H PUSH HL 
F5 PUSH PSW PUSH Ar 
z RAL RLA 

IF RAR RRA 

DB RC BET c 

c9  RET BET 

a RIC RLCA 

re oo BM RET M 

DO RNC BET Nc 
co RNZ BET nz 
a BET ? 

E8  RPE BET PE 
EO  RPO RET ?o 
OF BRC RRCA 

ae {) RsTo «0000 
cr Bst 1 RSTI #008. 
Dr 85T 2 BST2 «0010 
DPF Bst = RSTa 008 
Er Bst Ei RSTE #020 
EFF BST E RSTS #028 
most s RSTE =0030 
FF BST 7 RSTZ =0038 
c@ Rz RET z 

SF BB ä SBc AR 
8  SBB B SEC AB 
Eu} c sc Ac 
3A SBB D SEC AD 
BB E SBC ARE 
sc BB # SBC AH 
DB L sBc Al 


SE BB sBc 
DE 
2  SHID 
FB SPHL 
32  STA 
STAX 
STAX 


gramsas> BBEREzE 


gerenuaum yermmuau» vug 3g8 


BEBEEEEBBSESSBSEBESA 


by 
DE,HL 
A 
B 
c 
D 
E 
H 
L 
(9) 
by 
XTHL (SP)HL 
by — Byte (8 Bit) 
wo — Wort (16 Bit) 
di — Distanz (8 Bit) 
8080 und Z80 im Vergleich 


Wordstar 


a‘ 


enn Sie eine Wordstar- 
Wi haben, die auf Ih- 
rem Computer prinzipiell 
funktioniert, dann dürfen Sie diesen 
ersten Abschnitt ohne Bedenken 
überspringen. 
| Wenn aber nach dem Aufruf des 
Programms nur Unsinn auf dem 
Bildschirm erscheint, dann müssen 
Sie zunächst das Ihrem Wordstar 
- beiliegende Install-Programm star- 
ten. 
Spielen Sie dabei ruhig etwas mit 
den Menü-Routinen und geben Sie 
beliebige Änderungen ein. Nach- 


stark verbessert 


Auch wenn Ihr Wordstar-Programm 
an den Schneider angepaßt ist, so 
gibt es immer noch viele Wünsche, 
die offenbleiben. Dabei kennt diese 
Textverarbeitung noch viele Routinen, die das 
Arbeiten weitaus angenehmer machen. 


dem Sie dann das Install-Programm 
beendet haben, testen Sie die Wir- 
kungen der Veränderungen. Zerstö- 
ren können Sie dabei übrigens 
nichts — denn mit der Install-Routine 
läßt sich das Programm immer wie- 
der umbauen. MachenSiesich aber 
trotzdem zuvor eine Sicherheitsko- 
pie, denn mit der Originaldiskette 
sollten Sie nie arbeiten. 

Sobald Ihnen die Bedienung der 
Installierungsroutinen geläufig ist, 
müssen Sie sich bei der Erstanwen- 
dung besonders auf folgende Punk- 
te konzentrieren: 


— Die Bildschirmgröße muß auf25x 
80 Zeichen eingestellt werden. 
— Die CP/M-Entsprechung des 
Locate-Befehls muß unbedingt in- 
stalliert werden. Im entsprechen- 
den Menüpaket werden dazu von 
Ihnen verschiedene Angaben ver- 
langt. Diese sind auf dem CPC 464 
und 664: 
— Die Steuerzeichenfolge, um einen 
Cursor zu positionieren, besteht 
beim CPC 464 und 664 aus dem Zei- 
chen IF hex (31 dez). 
— Zwischen der Angabe von Zeile 
und Spalte sowie nach beiden, 
braucht keine Steuerzeichenfolge 
gesendet zu werden. 
— Die Angabe der Zeile und Spalte 
erfolgt binär, wobei die Spalte vor 
der Zeile ausgegeben werden muß. 
— Der »Offset« (Startwert), der vor 
der Ausgabe auf den Bildschirm zu 
den Koordinaten addiert wird, hat 
sowohl für die Zeile wie auch für die 
Spalte den Wert 1. 
— Das Steuerzeichen für Ein- und 
Ausschalten der Hervorhebung 
(durch inverse Zeichen) ist beim 
CPC der Code 18 hex (24 dez). 
Der Steuercode zum Löschen ei- 
ner Zeile von Cursorposition biszum 
Ende ist 12 hex (l8 dez). Wenn Sie im 
Install-Programm den entsprechen- 
den Menüpunkt aufrufen und den 
Wert eingeben, dann löscht Word- 
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CPIM 


starspäter eine Zeile nicht mehr Zei- 
chen für Zeichen. Das führt dann zu 
einer spürbaren Beschleunigung. 
— Manche Terminals verlangen 
nach jeder Bildschirmausgabe eine 
»Ruhepause«, Ihr Schneider benö- 
tigt diese Ruhepause nicht. Deshalb 
ist es ratsam, alle Wartezeichen auf 
Null zu setzen. Wenn Sie mit dem 
Programm »DDTCOM« umgehen 
können, lassen sich diese Änderun- 
gen auch nachträglich (ohne das 
Install-Programm) durchführen, in- 
dem Sie die beiden Bytes an den 
Adressen 02AE und 02AF hex auf 
Null setzen. 

— Die rechte untere Ecke des Bild- 
schirms darf unter Wordstar nicht 
beschrieben werden. Der CPC 
scrollt sonst den Bildschirm vorzei- 
tig, ohne daß dies vom Programm 
registriert wird. In der Folge würde 
dann irgendwann nur noch »Müll« 
auf dem Bildschirm stehen. Bei 
fremden Terminals ist das Beschrei- 
ben der Ecke aber oft erlaubt. Im 
Install-Programm sollte deshalb das 
mn Flag gesetzt wer- 

len. 

Wenn Sie sich mit Hilfe des Install- 
Programms versichert haben, daß 
diese Werte auch in Ihrem Wordstar 
korrekt eingetragen sind, muß es 
ordnungsgemäß laufen. 

Auch wenn Ihr Wordstar ord- 
nungsgemäß funktioniert, sollten Sie 
sich mit einer Minimalanpassung 
nicht zufrieden geben. Es gibt vier 
grundsätzliche Schwachstellen, die 
wen mit wenig Aufwand beseitigen 

nn. 


Langsamer Bildschirmaufbau: 

Besonders als Anfänger werden 
Sie Wordstar in der Hilisstufe 3 be- 
treiben wollen. Dann haben Sie 
aber allen Grund zum Ärgern: Je- 
desmal, wenn der Bildschirm scrollt 
(und das kommt nach jeder Zeile 
vor), dauert es »ewig«, bis er wieder 
richtig aufgebaut ist. Selbst wenn Sie 
Wordstar in Hilfsstufe 2 benutzen, 
bleiben Sie davon nur verschont, so- 
lange sich der Cursor ganz unten 
auf dem Bildschirm befindet. 

Der Zeitbedarf kommt daher, daß 
beim Scrollen des Bildschirms je- 
des Zeichen einzeln an die neuen 
Positionen ausgegeben wird. Au- 
Berdem prüft das Programm jedes- 


Tabelle 1. Die Steuerzeichenfolge für »Cursorzeile einfügen« 


mal, ob eine Taste gedrückt wurde, 
die die Ausgabe überflüssig macht. 
Drückt man keine Taste, so kostet 
das unnötig Zeit. 

Aus dem Wordstar-Handbuch 
geht hervor, daß Wordstar die Bild- 
schirmsteuersequenzen »In der 
Cursorzeile Leerzeile einfügen und 
Bildschirmbereich unterhalb ab- 
wärts scrollen« sowie »In der Cursor- 
zeile löschen und Bildschirmbe- 
reich unterhalb nach oben scrollen« 
unterstützt, wenn der Computer sie 
versteht. Das kann der Schneider 
aber nicht. Es ist aber möglich, die- 
se Funktion wenigstens zu simulie- 
ren. 


Optimieren eines funktio- 
nierenden Wordstars 


Sie werden es kaum glauben, 
aber mit dieser Änderung wird der 
Bildschirmaufbau um den Faktor 
100 beschleunigt (von einigen Se- 
kunden auf einen Sekundenbruch- 
teil)! Sie brauchen nur die Steuerzei- 
chenfolgen aus den Tabellen ] und 
2 eingeben. Doch wo ist im Speicher 
Platz dafür? 

In den Bereich ab 0274 bezie- 
hungsweise 027B hex könnte im 
»WSCOM«-Programm eine entspre- 
chende Folge eingefügt werden. 
Leider darf diese aber nur sechs 
Zeichen lang sein und keine 14 be- 
ziehungsweise 15, wie es nötig ist. 

Es gibt aber trotzdem eine Lö- 
sung: Man darf nämlich nicht nur 
Steuerzeichen nach Wunsch neu 
einsetzen, sondern auch eine voll- 
ständig neue Bildschirmroutine. In 
der eingebauten Routine geht 
Wordstar sehr systematisch vor. Zu- 
nächst ruft die oberste Programm- 
hierarchie ein Unterprogramm »Fü- 
ge Zeile aufdem Bildschirm ein« auf, 
ohne sich darum zu kümmern, wie 
das Unterprogramm das bewerk- 
stelligt. Erst dieses Unterprogramm 
sucht sich die geeigneten Steuerco- 
des aus einer Tabelle und übergibt 
sie der endgültigen Konsolen- 
Ausgaberoutine — wieder ohne sich 
darum zu kümmern, wie diese das 
macht. Es ist also möglich, an dieser 
Stelle eine weitere Routine aufzuru- 
fen, beispielsweise eine Umsetzung 


des ASCII-Codes — den Wordsta 
benützt — in einen anderen, den Ihi 
Terminal versteht (wenn Sie eins 
exotisches Terminal besitzen), 

Ein Weg, die gewünschten Strin. 
zu installieren, ist hier, an den P 
tionen 0274 beziehungsweise 02° 
hex zwei »Phantomsteuercodes«eii 
zutragen, die normalerweise nich 
verwendet werden. Beim Schneis 
bieten sich dazu die Steuercodes 
hex (Symbol-Befehl: hier nicht benö% 
tigt) und 1B hex (immer unbelegt)a 
Der eigentlichen Konsolenausgabe 
wird mit Hilfe einer »Umleitung« ei 
ne weitere Routine vorgeschaltet 
die in der Lage ist, diese »Phanton 
steuercodes« zu erkennen. Soll 
beliebiges anderes Zeichen aus: 
geben werden, so wird die normalı 
Routine aufgerufen. Das geht am 

„einfachsten mit einem direkten 
BIOS-Aufruf, um jegliche Verände 
rung durch das Betriebssystem at 
zuschließen. Tritt aber das Steuer 
zeichen 19 hex oder IB hex auf, 
soll die neue Konsolen-Ausgabero 
tine nicht nur ein Zeichen, sondem 
den ganzen String an den Bild 
schirm senden. Selbstverständlich 
muß die neue Routine prüfen, daß 
nicht fälschlicherweise Parame: 
anderer Befehle (beispielswei 
von Locate) mit dem Wert 19 oder 1B 
hex ausgeführt werden. Der Aufruf 
der neuen Konsolen-Ausgaberouti 
ne muß in die Adresse 02C0hexeii 
getragen werden. 

Unsichtbarer Cursor: , 

Wennsich der Cursoraufoderne 
ben einem hervorgehobenen (Vor- 
dergrund und Hintergrundfarbe 
vertauscht) Zeichen befindet, ist ei 
unsichtbar. Um dies zu ändern, 
schreibt man den Wert FF hex in die 
Speicherzelle 02B5 hex. Das Pro 
gramm läßt den Cursor dann blin- 
ken. Die Werte in den Speicherzel- 
len 02CF hex und 02D0 hex bestim- 
Ten, dabei die Blinkgeschwindig- 

eit. 
Die Drucker-Statusabfrage: 

Wordstar läuft unter allen Versio- 
nen des Betriebssystems. Ältere als 
CP/M 2.2 haben dabei aber keine 
Routine, die ermittel, ob der 
Drucker zum Datenempfang bereit 
ist oder nicht. Die Druckerroutine 
gibt die Kontrolle jedoch erst wie- 


Steuercodes »Basic-ähnlice Kommentar Steuercodes „Basic-ähnliche«- Kommentar 
Schreibweise, 
1A004Fy18 WINDOW 180425 aktuelles Window umfaßt nur zu scrollenden 1A004Fylß WINDOW 180325 unterer Bildschirmbereich = aktuelles Win- 
Bildschirmbereich dow 
1Fol 1a LOCATE 1,26 Cursor außerhalb Window positionieren IE HOME 
E) PRINT“ *; Zeichen ausgeben — > löst Scrolling aus os CURSOR UP Cumor außerhalb Window 
IE HOME Cursor an Anfang der laufenden Zeile 6 PRINT" "; Zeichen ausgeben —> löst Serollen aus 
1A004F 00 18 WINDOW 1,80,1.25 aktuelles Window umfaßt wieder gesamten IE HOME Anfang der laufenden Zeile 
Bildschirm 1A004F0018 WINDOW 180,125 aktuelles Window umfaßt wieder gesamten 
Y = Zeile auf er uch der Cursor befindet) Bildschirm 


4 > Zee auf dar ich der Carr betindet) 


Tabelle 2. Die Steuerzeichenfolge für »Cursorzeile löschen« 


der an das Hauptprogramm zurück, 
wenn das Zeichen wirklich beim 
Drucker angekommen ist, 

Damit ist man zwar von der Hard- 
‘ware unabhängig — muß aber damit 
rechnen, daß der Computer »ab- 
stürzen« kann, wenn der Drucker 
nicht bereit ist. 

Bei CP/M kann man aber mit ei- 
nem direkten BIOS-Aufruf den 
Druckerstatus abfragen. Der Com- 
puter gerät dabei nie in eine Endlos- 
schleife. Diese Fähigkeit kann man 
‚von Wordstar aus nutzen, wenn man 
eine entsprechende Routine ein- 
fügt. In der Adresse 071A hex von 
WSCOM« sind 3 Byte für einen Auf- 
ruf dieser Drucker-Statusroutine re- 
serviert, r 

Wenn Sie diese Änderung richtig 
gemacht haben, erkennen Sie das 
‚sofort beim Aufruf der Druckerrouti- 
ne. Bei einem Fehler (beispielswei- 
se Papiermangel) erscheint das 
Hauptmenü mit der Meldung »P= 
Druck halt«. Sie können den miß- 
glückten Versuch ohne Tricks kor- 
rekt beenden. 


Deutscher Zeichensatz: 

‚Wenn Sie das für Schneider-Com- 
Puter speziell angepaßte Wordstar 
besitzen, das vom Markt & Technik 
Verlag vertrieben wird, dann steht 
Ihnen auch ein deutscher Zeichen- 
satz zur Verfügung. Das »Design« 
der Sonderzeichen ist jedoch nicht 
besonders ansprechend, Die Matri- 
zen der Zeichen »8,Ä\ ‚äaöü und 
B« liegen in dieser Reihenfolge di- 
rekt hintereinander im Speicher des 
Computers. Sie belegen die Adres- 
sen von 3FCD bis 4014 hex in »WS 
‚COM«und können dortleicht verän- 
dert werden. 


Die praktische Durchführung der 


retisch zugegangen ist, finden Sie 
hier die Listings, mit denen Sie die 


Beherrschen Sie nicht den 8080- 
Assembler, müssen Sie die Anpas- 
sung in vier Schritten durchführen: 
Als erstes brauchen Sie eine Ar- 
beitsdiskette im CP/M-Format. Auf 
dieser müssen die Routinen 
AWSCOM«, »WSOVLYIOVR« und 
AWSMSGSCOMM« stehen. Die Datei- 
en dürfen nicht schreibgeschützt 
sein. Nachdem Sie die Datei kopiert 
haben, müssen noch mindestens 20 
‚KByte freisein. Machen Sie sich jetzt 
von den anderen Dateien, die sich 
auf der Diskette befinden, Sicher- 
heitskopien. Sollten Sie bei dieser 

Art von Experimenten einen Fehler 


h jachen, kann es Ihnen leicht pas- 


sieren, daß Sie nachher keine einzi- 
ge Datei mehr lesen können. 

Als weiteres tippen Sie das Basic- 
Programm in Listing 1 ab und spei- 
chen es unter dem Namen 
»WSPATCH.BAS«. Starten Sie nun 
dieses Basic-Programm. Ist es feh- 
lerfrei, erscheint nach einiger Zeit 
die Meldung »Alles ok.«. Dieses 
Programm erzeugte auf der Dis- 
kette eine Datei mit dem Namen 
»WSPATCHCOM«. 

Erscheintaberdie Meldung »Prüf- 
summenfehler in Zeile«, dann befin- 
det sich in dieser Zeile ein Fehler. 
Den müssen Sie korrigieren und das 
Programm nochmals starten. Es be- 
findet sich nun aber schon eine un- 
vollständige Datei mit dem Namen 
»WSPATCHCOM« auf der Diskette. 
Diese muß gelöscht werden. Beach- 
ten Sie bitte, daß nur Tippfehler ent- 
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deckt werden, die sich innerhalb ei- 
ner Zeile befinden. Haben Sie eine 
Zeile ganz vergessen oder zwei Zei- 
len vertauscht, ist die DateitrotzMel- 
dung »Alles ok.« fehlerhaft. Sie dür- 
fen das Basic-Programm also erst lö- 
schen, wenn alle Fehler ausgemerzt 
sind. 

Die Datei »WSPATCHCOM« ist 
nun ein ganz normales CP/M- 
Programm. Rufen Sie CP/M aufund 
starten Sie »WSPATCHCOM« durch 
Eingabe des Namens (aber ohne 
»COM.). Jetzt muß ein Text auf dem 
Bildschirm erscheinen und das. 
Laufwerk arbeiten. Erscheint aber 
die Fehlermeldung »FILE NOT 
FOUND«, dann haben Sie verges- 
sen, die Datei »WSCOM« auf Ihre 
Arbeitsdiskette zu kopieren. 

Wenn das »A« wieder auf dem 
Bildschirm erscheint, sind alle oben 
besprochenen Anpassungen kor- 
rekt installiert. Testen Sie Wordstar 
und beachten Sie folgende Punkte: 
— Versuchen Sie eine Datei auszu- 
drucken. 

— Tippen Sie einen Text ein und pro- 
bieren Sie IN und tY irgendwo in 
der Mitte des Textes aus. Das Scrol- 
len sollte jetzt wirklich blitzartig, oh- 
ne Neuaufbau des Bildschirms vor 
sich gehen. 

— Blinkt der Cursor, wenn er sich 
neben einem inversen Feld befin- 
det? 

— Wie gefallen Ihnen die deutschen 
Umlaute? 

‚Wenn irgendetwas nicht funktio- 
niert, dann befindet sich noch ein 
unentdeckter Fehler im Programm 
»WSPATCH.BAS«. Vergessen Sie in 
diesem Fall nicht, die »falsche« 
Wordstar-Anpassung zu löschen. 

Wenn Ihr Programm ordnungs- 
gemäß funktioniert, brauchen Sie 
die »WSPATCH«-Programme nicht 
mehr. Trotzdemsollten Sie sie aufhe- 
ben, vielleicht möchten Sie später 
einmal ein nochmals modifiziertes 
Wordstar installieren. 

Wenn Sie sich mit der Bedienung 
des »DDTCOM«-rogramms aus- 
kennen, dann können Sie das Pat- 
chen des »WSCOM«-Files auch in 
Handarbeit durchführen. In diesem 
Fall sparen Sie sich das Eintippen 
des Basic-Laders. Dafür ist aber die 
Gefahr, daß Sie einen unentdeckten 
Fehler eingeben, um ein Vielfaches 
höher. Entscheiden Sie sich trotz- 
dem dafür, dann sollten Sie so vor- 
gehen: 

— Starten Sie den Debugger mit 
»DDT WSCOM« 

— GebenSie von Handallein Listing 
2 dargestellten Änderungen ein. Be- 
achten Sie dabei den Bereich von 
02E0 bis 034B hex. Dieser steht für 
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Ergänzungen des Benutzers zur frei- 
en Verfügung. Dabei benötigen Sie 
folgende Befehle: 

— »D<Anfang>,<Ende>« gibt 
den bezeichneten Speicherinhalt im 
Hexadezimalformat aus. Wenn Sie 
die Endadresse weglassen, werden 
nur 16 Zeilen ausgegeben. 
— »L<Anfang>,<Ende>« gibt 
den Speicherinhalt als Disassem- 
blerlisting aus. Ohne Endadresse 
stoppt die Ausgabe wieder nach 16 
Zeilen. 

— »1S« hält eine laufende Ausgabe 
an, bis eine weitere beliebige Taste 
gedrückt wird. 

— beliebige Taste während einer 
laufenden Ausgabe: bricht die lau- 
fende Ausgabe ab. 

— »S<Anfang>«: starteteine hexa- 
dezimale Eingabe. Durch eine un- 
gültige Eingabe wird sie abgebro- 
chen. Eine leere Eingabe läßt den 
entsprechenden Speicherinhalt un- 
verändert. 

— »A<Anfang>« der Mini- 
Assembler des DDT-Programmes. 
Alle Befehle werden in 8080-Mne- 
monics gemacht. Durch eine leere 
Eingabe wird dieser Modus abge- 
brochen. 

Selbstverständlich gibt esnoch ei- 
ne Menge weiterer Befehle. Wenn 
Sie sich für diese interessieren, soll- 
ten Sie Spezialliteratur zu Rate zie- 
hen. Für unser Problem reichen 
aber die hier gezeigten Befehle voll- 
ständig aus. 

— Unterbrechen Sie nach dem Än- 
dern der Datei das DDT-Programm 
durch Eingabe von »!C«. Das neue 
Wordstar-Programm befindet sich 
nun im Speicher. Mit »SAVE 64 
WSCOM« wird es auf Diskette ge- 
speichert. 

— Jetzt sollten Sie das veränderte 
Wordstar (wie oben beschrieben) 
testen. Falls Sie eine Änderung ver- 
gessen haben, können Sie diese 
durch erneutes Starten des »DDT« 
nachholen. Wenn das Programm 
dann immer noch nicht richtig funk- 
"tioniert, haben Sie wahrscheinlich ir- 
gendeine Eingabe durch einen 
Tippfehler an die falsche Adresse 
geschickt. In diesem Fall ist das 
Wordstar-Programm völlig verdor- 
ben, und Sie sollten mit einer neuen 
Kopie noch mal beginnen. 

Ein weiteres Problem ist die 
Druckeranpassung. Die Standard- 
Installation des Wordstar-Pro- 
gramms unterstützt nur Eigenschaf- 
ten, die allen Druckern gemeinsam 
sind — also fast keine. Ausgenom- 
men sind nur Doppeldruck, Fett- 
druck und Unterstreichen. Diese Ef- 
fekte werden aber nicht mit Hilfe 
der Hardware des Druckers er- 
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zeugt, sondern dadurch, daß eine 
Zeile zweimal hintereinander ohne 
Zeilenvorschub ausgegeben oder 
daß eine Leerzeile angegeben 
wird. 

Analog der Installierung der Bild- 
schirmsteuerzeichen gibt es im Pro- 
gramm auch reservierte Bereiche 
zum Eintragen von Druckersteuer- 
zeichen. Diese Bereiche sind im An- 
hang F des Wordstar-Handbuchs 
beschrieben. Einfache Änderun- 
gen kann man jedoch auch mit Hilfe 
des Install-Programms durchfüh- 
ren. 

Übrigens sind — mit Ausnahme 
der Schönschrift und der Grafikzei- 
chen — alle Steuerzeichen eines 
Epson-kompatiblen Druckers und 
des NLQ401 gleich. Die folgende 
Anpassungistalsofür Sie auch dann 
nützlich, wenn Sie keinen NLQ401, 
sondern »nur« einen Epson-Drucker 
besitzen. 

Die beiden Anpassungen (Bild- 
schirm und Drucker) sind völlig un- 
abhängig voneinander. Sie können 
also mit Ihrem Wordstar entweder 
die eine, nur die andere oder alle 
beide benutzen. Die erweiterte 
Druckersteuerung ist damit sogar 
auf Programmen lauffähig, die nicht 
an den CPC angepaßt sind. 

Starten Sie Ihr Wordstar-Pro- 
gramm und tippen Sie während der 
Bearbeitung eines Textes einmal 
»!P« ein. Es wird das Druckermenü 
ausgegeben. Man sollte jetzt versu- 
chen, möglichst viele Fähigkeiten 
des NLQ-Druckers auf die noch frei- 
en Steuerzeichen zu legen. Ein Lö- 
sungsvorschlag dafür ist: 

— »tPB«, „IP ie, »IPS«, »tPX« und 
»tPENTER« Schattendruck/Dop- 
peldruck/Unterstreichen/Durch- 
streichen und Überdrucken. Diese 
Funktionen brauchen nicht verän- 
dert zu werden, da sie hardware- 


unabhängig installiert sind. 
— »1PF«»1PG« und »tPV«: Zeichen 
löschen/Phantomzeichen. Diese 


Funktionen beherrscht der NLQ401 
nicht, und müssen deshalb wegge- 
lassen werden. 

— »1PTk und »tPV«: Hoch- und Tief- 
stellen (ein/aus). Diese Funktionen 
können ruhig auf ihren Buchstaben 
belassen werden — nur müssen sie 
richtig initialisiert werden. 

— »IPY« Farbband wechseln. 
Beim NLQ401 kann das Farbband 
nicht automatisch gewechselt wer- 
den. Eine Möglichkeit, dieses vir- 
tuelle Steuerzeichen doch zu benut- 
zen ist, es mit den Steuersequenzen 
für Schrift in doppelter Größe zu be- 
legen. 

— »tPA« und »1PN«: zweite Schrift- 
dichte ein/ausschalten. Diese Steu- 
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ermöglichkeit wird am besten mi 
den Druckercodes für komprimieı 
te Schrift belegt. 

— »tPQ« und »tPW«: Diese Funktio 
nen können vom Anwender frei 
legt werden. Hier kann man Ne: 
Letter-Quality oder Schnellschrii 
wählen. 

— »IPR«: Auch diese Funktion ka 
frei belegt werden. Sinnvoll ist, 
mit den amerikanischen oder den 
deutschen Zeichensatz alternati 
auszuwählen. Es können dann auch 
eckige Klammern und so weiter ge 
druckt werden. 

— »IPE«: Auch diese Funktion is 
frei definierbar. Damit könnte mi 
die Grafikzeichen des Druckers 
wählen. Es sind dann in einem 
beispielsweise auch griechische 
Sonderzeichen erlaubt. 

Einige Steuerzeichenfolgen las 
sensich ganzeinfach in die dafürre 
servierten Bereiche des Wordstar- 
Programms eintragen. Bei anderen 
treten jedoch Probleme auf. 

Wordstar unterstützt — selbst nat 
dem Patchen — nur die Funktion. 
»Wagen eine halbe Zeile hochrolle: 
und »Wagen eine halbe Zeile runter: 
rzollen« zum Hoch- und Tiefstellen‘ 
von Zeichen. Die Anweisung Tief 
stellen eines Zeichens wird also mit‘ 
denselben internen Steuerzeichen! 
durchgeführt wie das Hochstellen 
des Zeichens. 

Der NLQ40] (und der Epson) si 
mulieren nun aber das Hoch- und 
Tiefstellen mit Hilfe einer speziellen’ 
Schriftart. Deshalb wird die Hocl 
stellung mit der Steuerzeichenfolge 
1B54 hex gelöscht, die Tiefstellung 
aber mit der Steuerzeichenfolge‘ 
185301 hex eingeschaltet. Nur durch 
Eintragen der normalen Steuerzei 
chenfolge können Sie das Problem. 
also nicht lösen. 

Abhilfe schaffen hier wieder 
wie schon bei der Installation der 
Bildschirmsteuerung — »Phantom 
steuerzeichen«, die erst unmittelbar 
vor der Ausgabe in eine wirkliche 
Steuerzeichenfolge übersetzt wer- 
den. Die dazu nötige neue Routine 
muß auch mit einem »Gedächtnis« 
versehen werden, damit sie »weiß«, 
welcher Befehl nun effektiv ausge- 
führt werden soll. Auch zur Auswahl 
des Zeichensatzes steht nur ein ein- 
ziges Steuerzeichen zur Verfügung. 
Es muß also ebenfalls ein »Phantoı 
steuerzeichen mit Gedächtnis« ein- 
gesetzt werden. 

Grafikzeichen besitzen beim 
NLQ401 einen Code, bei dem das 
achte Bit gesetzt ist. Dies kann nun 
aber der CPC nicht übertragen. 
Deshalb gibt es ein spezielles Um- 
schaltsteuerzeichen, das den nor- 
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02c0 
02c3 


02E0 
02E1 
02E2 
02E5 
02E6 
02E9 
02EA 
02EB 
02ED 
02F0 
02F2 
02F3 
02F6 
02F9 
O2FA 
02FB 
02FD 
0300 
0302 
0305 
0306 
0309 
030C 
030E 
0311 
0312 
0315 
0318 
031A 
031B 
v31c 
031D 
031E 
0321 
0322 
0323 
0324 
0327 


0285 FF. 
+L0200,02C2 


aM 


D2CF 05 . 
0200 05 , 
-L02E0,0327 


Moy 
MOV 
LXI 
DER 
INZ 
INR 
MOV 
CPI 
NZ 
MVI 
MOV 
LXI 


-D0274,0275 


P 


-DO2CF ,02D0 


LHLD 


DAD 
PCH! 
CPL 
92 

CPL 
nz 


L 


mov 


STA 
LXI 
MvI 
MP 
MOV 
STA 
LXI 
MYI 
7 
INX 
Pusi 
PuSi 
CAL) 
POP 
Pop 
DER 
INZ 
RET 


-D0328,0349 


H 
H 
L 
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0274 01 19 ., 
-D0278,027C 


027B 01 1B .. 
-D0285 ,0285 


02E0 


0328 01 1A 00 4P 02 
0330 1A 20 1E 1A 00 
0340 18 1E OB 20 1E 


-L034A,0352 
034A LXI D,002A 
034D CALL 02F6 
0350 CMA 
0351 RAR 
0352 RET 
0353 
-D0718,0718 
0718 FF 
-LO71A,071C 
O71A IMP 0344 
071D 
-D3FCD,4014 
3PCD 3C 60 30 << 
3FDO 66 66 3C 06 3C 
3FEO C6 C6 6C 38 00 
3FFO C6 00 00 00 00 
4000 66 66 66 3C 00 


cc 00 


18 ıF 01 
4F 00 18 IF 50 18 20 ıA 00 AF 02 . 
1A 00 @F 00.18 .,. 22.02, 


c6 38 6C C6 FE C6 C6 00 C6 38 6C ff<.<,8l 
C6 00 C6 C6 C6 C6 7C 00 10 38 6C ..18. 
6C 00 78 0C 7C CC 76 00 6C 00 3C ..... 
6C 00 00 C6 C6 C6 TE 00 IC 36 66 £ff<.l. 
Ir2ye 


malen Zeichensatz abschaltet und 
den Grafikzeichensatz auf die Co- 
des der normalen ASCII-Zeichen 
legt. Ein »A«, das den Code 41 hex 
hat, wird also im Grafik-Modus als 
das Grafikzeichen mit dem Code Cl 
hex (41+80) ausgedruckt. Die Aus- 
gabe im Grafik-Modus erfolgt dann 
so lange, bis ein »Rückschaltzei- 
chen« ausgegeben wird. Im Grafik- 
Modus versteht der NLQ401 aber 
keinerlei Steuerzeichen. Der Code 
OD hex zum Beispiel veranlaßt kei- 
nen Wagenrücklauf, sondern steu- 
ert nur die Ausgabe des Grafikzei- 
chens mit dem Code 8D hex 
(0D +80). 

Normalerweise kommen Grafik- 
zeichen sehr selten vor. Es ist also 
sinnvoll, wenn sich der Grafik- 
Modus gleich nach der Ausgabe ei- 
nes einzigen Grafikzeichens wieder 
von selbst abschaltet. Dadurch ist 
ein drittes »Phantomsteuerzeichen 
mit Gedächtnis« nötig: Beim Auftre- 
ten des Zeichens »!PE« im Text wird 
der Grafik-Modus aufgerufen und 
nach Ausgabe des nächsten Zei- 
chens automatisch wieder abge- 
schaltet. Die Eingabe »!PEx« gibt 
damit das Grafikzeichen mit dem 
Code »Code(x)+80hex« auf den 
Drucker aus. »x« darf dabei ein be- 
liebiges ASCII-Zeichen sein. Auf 
diese Weise ist also die Ausgabe 
der Grafikzeichen mit Codes zwi- 
schen A0 und FE hex möglich, 

Für die Grafikzeichen mit Codes 
zwischen 81 und 9F hex und das mit 
dem Code FF hex steht kein norma- 
les ASCII-Zeichen mehr zur Verfü- 


gung. Der vorhandene ASCII-Satz 
muß also für dies« Srafikzeichen 


speziell interpretiert werden. Der 
Ausgaberoutine wird dies dadurch 
signalisiert, daß nach dem »IPE« 
Zeichen ein weiteres »!PE«Zeichen 
folgt. Dieses zweite Zeichen signali- 
siert, daß der als drittes Zeichen fol- 
gende ASCII-Wert anders übersetzt 
werden muß. Das Zeichen bekommt 
den neuen Code »Code(x)+40hex«. 
Die Steuerzeichenfolge »!PEtPEA« 
gibt somit das Grafikzeichen mit 
dem Code 81 hex aus. 

Die Steuerzeichenfolge »IPEIPE 
@« würde nach dieser Regel dem 
Grafikzeichen mit dem Code 80 hex 
entsprechen. Beim NLQ401 gibt es 
dieses aber nicht, daher kann esmit 
dem bisher noch nicht druckbaren 
ee: FF hex belegt wer- 

len. 

Die neue Druckerroutine muß ir- 
gendwo im Wordstar-Programm ab- 
gelegt werden. Der für den Anwen- 
der reservierte Speicherbereich ist 
aber schon durch die erweiterte 
Bildschirmsteuerung belegt. Der 
einzige Platz ist jetzt der Anfang des 
Text-Speichers. Dieser beginnt nor- 
malerweise an der Adresse 7849 
hex. Die Speicherplätze 035C und 
035D hex enthalten diese Anfangs- 
adresse. Durch Ändern auf einen 
anderen Wert wird der Beginn des 
Textspeichers geändert. Der Platz 
zwischen alter und neuer Start- 
adresse kann vom Anwender belie- 
big benutzt werden. So auch für die 
Druckroutine. 

Normalerweise wird vom gesam- 
ten Wordstar-Programm nur der Be- 
reich bis zur Adresse 4014 hex auf 
Diskette gespeichert. Wird an der 
Adresse 7849 hex aber eine Ergän- 
zung eingefügt, so muß der ganze 
dazwischenliegende Bereich mitge- 
speichert werden. Um das zu ver- 
meiden, gibt es einen Trick: Die 
Routine wird zunächsteinfach an die 
‚Adresse 4015 hex gelegt und Word- 
star durch Einbauen einer »Umlei- 
tung« vor Programmstart veranlaßt, 
eine Kopierroutine aufzurufen, die 
die Druckroutine an ihre endgültige 
Position überträgt. Erst später wird 
das eigentliche Wordstar-Programm 
gestartet. Diese Kopierroutine wird 
ebenfalls hinter der Adresse 4015 
hex abgelegt. 

Für »Assembler-Unkundige« ist 
wieder ein Basic-Lader (Listing 3) 
vorgesehen, das die Routine »NLQ 
401COM« erzeugt. Gehen Sie I 
nauso vor, wie bei den anderen 
derungen. 

Das abgedruckte Programm funk- 
tioniert aber nur, wenn Sie einen von 
Markt & Technik für den CPC 464 
angepaßten Wordstar mit deut- 
schem Zeichensatz verwenden. 
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Wollen Sie das Programm ohne den 
deutschen Zeichensatz benutzen, 
müssen Sie die Zeile 10590 des 
Basic-Prc wie folgt ändern: 


ogramms 
De DATA 40,ED,B0C3,00,3F,11,E3, 


Wenn Sie ein Wordstar (der Ver- 
sion 3.00-2.0) besitzen, der noch nie 
an den Schneider angepaßt wurde, 
oder wenn Sie statt des im Wordstar 
eingebauten deutschen Zeichensat- 
zes lieber einen eigenen, externen 
verwenden wollen, dann müssen 
Sie die Zeile 10590 so ändern: 
10590 DATA 40,ED,B0C3,08,2D11, 
E3,1001 

Beachten Sie, daß nach der Instal- 
lation im Druckermenü die neuen 
Aufrufe erscheinen müssen. Des- 
halb wird beim Ablauf von 
»NLQ401COM« auch die Datei 
»WSMSGSOVR« verändert. Wenn 
Sie hier einen Fehler gemacht ha- 
ben, müssen Sie also auch diese Da- 
tei durch die Originalversion erset- 
zen. 

1 Zum Testen sollten Sie so vorge- 

en: 

— Sehen Sie sich durch Eingabe 
von »!P« das Druckermenü an, Wer- 
den alle neuen Steuerzeichen kor- 
rekt angezeigt? 

— GebenSie (im Basic-Modus) das 
Programm »DRUCKER.BAS« aus Li- 
sting 4 ein und starten Sie es. Dieses 
Programm erzeugt auf der Diskette 
eine Datei mit dem Namen 
»DRUCKER2TST«. Laden Sie Word- 
star und drücken Sie diese Datei 
aus, Es sollte jetzt eine Tabelle aller 
Grafikzeichen mit Hinweis auf die 
dazu nötigen Eingaben ausgegeben 
werden. Erscheinen in der Tabelle 
wirklich alle 135 Grafikzeichen? 

Dieser Test funktioniert aber nur 

auf dem NLQ40], nicht unbedingt 
auf allen Epson-kompatiblen Druk- 
kern. Trotzdem schadet natürlich 
das Ausprobieren auch beianderen 
Druckern nicht. 
— Geben Sie mit Hilfe der ausge- 
druckten Tabelle und des neuen 
Druckermenüs eine Datei ein, die 
alle Drucksteuerzeichen testet. 

Für Profis ist wieder der Assem- 
blercode (Listing 5) für den 
»DDTCOM«abgedruckt. Damit kön- 
nen Sie hier ebenfalls — wie oben 
beschrieben — die Druckeranpas- 
sung in Handarbeit vornehmen. Die 
Bytes, die im »WSCOM« zu ändern 
sind, zeigt Listing 6. 

Auch hier gilt, daß dieses Listing 
ohne Änderungnurfür ein Wordstar 
erlaubt ist, das ursprünglich von 
Markt & Technik an den Schneider 
angepaßt wurde und den deut- 
schen Zeichensatz beherrschen 
soll. Wenn es den deutschen Zei- 


108 “Basic-Lader fuer die Datei "MLOsBL 


+99,99,09.00,41, 
‚61,73,73,75,6£,67, 
er 


11380 DATA Ende 


Listing 3. Der Basic-Lader für die Druckerroutine 


chensatz nicht beherrscht, müssen 
Sie an der Adresse 4020 hex »]MP 
3F00« einsetzen. Inein Wordstar, das 
überhaupt nicht an den CPC ange- 
paßt wurde, müssen Sie an der Stel- 
le 4020 hex »]MP 2D0& einsetzen. 
Das ist derselbe Befehl, der ur- 
sprünglich an der Adresse 0100 hex 
stand. 

Wenn Sie wollen, daß die neuen 
Druckerfunktionen auch im Druk- 
ker-Hilfsmenü genannt werden, 
müssen Sie die Datei »WSMSGS. 
OVR« ebenfalls patchen. Die hier zu 
ändernden Bytes stehen im Listing 
7. Beachten Sie, daß »WSMSGS:« fast 
25 KByte lang ist und deshalb nach 
Abschluß der Änderung mit »SAVE 
99 WSMSGSOVR« zurückgespei- 
chert werden muß. 

Danach sollten Sie Ihr Wordstar 
wieder einem ausgiebigen Test un- 
terwerfen. 

Wenn Sie Ihr Wordstar für den 
ständigen Einsatz vorbereiten, soll- 


1B0S® PRINTF,TAB(ZI)"zur Ver#2gung steh 
ende Graphikzeichen® 
10068 PRINTSF,TAB(Z1)STRINGE (37,°=") 


Space: 
18178 IF ı%CB THEN READ cHPRINTW9 CHRE« 
19) CSCHRE (18) * (BSPACEI"PRICKTNPR", 


18108 printer 
18198 next 


10200 
18218 Data a, 


Listing 4. Ein Testprogramm 
ü Druckerroutine 


-L0100,0102 


0100 
0103 


MP 4015 


-D035C,035D 


035C E6 78 .x 
-D06B5,0686 


0685 01 OF .. 
-DO6BA,O6BB 


O6BA 01 12 .. 
-DO6BF,06C0 


O6BF 01 . 
06c0 IC . 
-D06C4,06c5 


06C4 01 1D... 
-D06C9,06CC 


06C9 03 1B 78 01 „ 


-DO6CE,06D1 


O6CE 03 1B .. 
0600 78 00 x. 
-D06D3,06D4 


06D3 01 1E .. 
-D06D8,06D9 


06D8 01 IF .. 
-DO6DD,06E0 


06DD 03 1B 57 ..H 
06E0 01 . 
-DOGE2,06E5 


06E2 03 1B 57 00 . 


-L4015,401D 


4015 LXI B,009D 


4018 


LXI D,7849 


401B LXI H,4023 


401E 


-D401E,401F 


401E ED BO .. 
-L4020,40A8 


4020 
4023 
4026 
4028 
402B 
402C 
402D 
4030 
4033 
4034 
4035 
4038 
403A 
403D 
403E 
403F 
4042 
4045 
4046 
4047 
404A 
404D 
404E 
4050 
4053 
4054 
4055 
4058 
4059 
AO5A 
405D 
4060 
4062 
4063 
4064 
4065 
4067 
AD6A 
406B 
406C 


IMP 3703 
LXI D,78E3 
epı ı1c 

INZ 785E 
LDAX D 

ANA A 

INZ 786B 
LXI H,78cF 


LXI H,78D7 
JMP 789D 
InXx D 
cpPI IE 
INZ 788A 
LDAX D 
ANA A 
NZ 7886 
DER A 
STAX D 
LXI H,78DA 
MP 789D 
MVI A,CO 
STAX D 
BET 

IN D 
cpı ıF 
INZ 78AC 
LDAX D 
CMA 

STAX D 


e2 


n 


406D LXI H,78E0 
4070 ANA A 

4071 32 789D 
407% LXI H,78DD 
4077 MOV BıM 
4078 INX H 

4079 MOV A,M 
407A PUSH H 
407B PUSH B 
407C CALL 7. 
407F POP B 
4080 PoP H 
4081 DCR B 
4082 NZ 7 
4085 RET 
4086 DCX D 
4087 MOV C 
4088 LDAX D 
4089 ANA A 
408A JZ 7807 
408D CPI CO 
408F MOV A,c 
4090 JNZ 78BF 
4093 ANI IF 
4095 JNZ 78BF 
4098 DCR A 

4099 CALL 78C6 
409C XRA A 
409D STA 78E4 
40A0 MOV CıA 
40Al LHLD 0001 
40A4 LXI D,000C 
4047 DAD D 


10100,0102 


4035c,035d 
40655 ,06b6 
d06ba ‚ 06bb 
d06bf ,06c0 
406c4,06c5 
d06c9,06cc 
d06ce,06dl 
40643,06d4 
40648,06d9 
d06dd,06e0 
d06e2,06e5 
14015,401d 
d401e,401f 
14020,40a8 
440a9,40bf 
go 

Listing 6. Diese Bytes müssen 

in »WS.COM« geändert werden 


40A8 PCHL 
40A9 
-D40A9 ,40BF 


40A9 03 1B 53 00 03 1B 53 „.8,..8 


40B0 01 02 1B 54 02 1B 3D 02 1B 37 02 1B 36 00 00 00 ...T..=..T..6... 


-60 


Listing 5. Die Druckerroutine im Assembler-Code ] 


ten Sie noch einmal Ihr Install- 
Programm zur Hand nehmen und 
die Standardvoreinstellungen Ihren 
Wünschen anpassen. 

Beispielsweise kann man im Kapi- 
tel Terminal-Features« einstellen, 
daß sich Wordstar schon nach dem 
Einschalten in der Hilfsstufe 2 befin- 
det. Man kann auch die Standard- 
ränder und Seitenhöhe selbst be- 
stimmen, Wenn Sie sich die Mühe 
machen, diese Voreinstellungen 
vernünftig zu wählen, ersparen Sie 
sich am Anfang jedes Textes einen 
Haufen unnötiger Arbeit. 

Wenn Sie wollen, dann können Sie 
auch die Einschaltmeldung (Druk- 
kername + Computername) frei 
wählen, so daß Sie gleich wissen, 
welche Version Sie vor sich haben. 
Wie wäre es mit einem Wordstar, 
das Sie mit Ihrem Namen begrüßt? 

Beachten Sie bitte, daß manche 
Install-Versionen (nicht die des 
Markt & TechnikVerlages) die Er- 
gänzungen, die Sie ab der Adresse 
3F00hex angehängt haben, löschen. 
Sollte also nach der Verwendung 
des Install-Programms Ihr Drucker 
nicht mehr funktionieren, dann müs- 
sen Sie eben das Programm »NLQ 
401COM« noch mal starten. 

Noch ein paar Tips, wie man 
durch geschickte Bedienung das 
Programm beschleunigt. Wenn Sie 


noch ein Anfänger sind, dannhaben 
Sie es vielleicht noch gar nicht be- 
merkt. Der langwierige Neuaufbau 
des Bildschirms erfolgt nur, solan- 
ge Wordstar nichts anderes zu tun 
hat. Geben Sie aber vor Ende des 
Bildaufbaus einen neuen Befehl, 
so wird dieser sofort beachtet. Oft 
kommt es vor, daß diese neuen Ein- 
gaben die Vervollständigung des 
Bildschirmaufbaus überflüssig ma- 
chen. In den meisten Fällen ist 
Wordstar so schlau, das zu bemer- 
ken. 

Wenn Sie beispielsweise schnell 
zehn Bildschirmseiten zurückblät- 
tern möchten, dann brauchen Sie 
nicht nach dem ersten »tR« 
Kommando 10 Sekunden zu warten, 
bis der Bildschirm wieder reorgani- 
siert ist, und dann erst die nächste 
Taste drücken. Sie geben einfach 
zehnmal ganz schnell hintereinan- 
der»tR«ein. Die jetzt angezeigte Sei- 
te ist gleich die richtige. Die Zeiter- 
sparnis ist enorm. 

Wenn Sie beim Schreiben so rich- 
tig in Fahrt sind, macht es gar nichts, 
wenn kurzzeitig in der oberen Bild- 
schirmhälfte nur Unsinn steht. Solan- 
ge der Cursor erscheint, können Sie 
ohne Sorge weitertippen. Sie wer- 
densehen, daß der Text vervollstän- 
digt wird, sobald Sie eine Denkpau- 
se machen. 


Dasselbe gilt übrigens für die vie- 
len Hilfs- und sonstigen Menüs: 
Wenn Sie schon wissen, welchen 
Buchstaben die gewünschte Funk- 
tion hat, dann tippen Sie ihn sofort 
ein — vielleicht wird dann das zuge- 
hörige Menü gar nicht erst aufge- 
baut. 

Generell können Sie sich merken: 
Sobald Sie wissen, was Sie als näch- 
stes eingeben wollen, geben Sie so- 
fort ein — gleichgültig, was gerade 
auf dem Bildschirm steht. Solange 
kein Zugriff auf die Disketten erfolgt, 
können Sie sicher sein, daß Ihre Ein- 
gaben schon irgendwo gespeichert 
werden, bis sie zur Ausführung kom- 
men, 

Wenn Sie einen längeren Text ein- 
gegeben haben und schnell ganzan 
den Anfang des Textes springen 
wollen, sollten Sie nicht »!QR« aufru- 
fen, sondern statt dessen »!KS«— al- 
so den Text sichern. Als Folge der 
verwendeten Datenstrukturen er- 
folgt das Zurückblättern so wesent- 
lich schneller und braucht außer- 
dem weniger Diskettenspeicher- 
platz. Gleichzeitig ist Ihr Text gesi- 
chert. 


-DODBS,OPSA 


59 3D 56 65 72 67 72 6 


0Ps0 3D 41 62 62 65 6E 20 


20 


7265 


YeVergroess 
73 20 20 20 ert ein/aus 
2E „SeUnterstreich. 


63 ‚Ostester Leersc 
70 hrite E-Grap 
74 hikzeichen folgt 

R uni 


69 ndere Graphikzei 
65 chen ENTER»Zeile 
20 ueberdrucken 
74 „QeSchoenschrift 
er ein WeScho 
20 enschrift aus 
7. Leerschritt 

Abbrechen 


Listing 7. Auch die Einschaltmeldung kann geändert werden 


Im Zweifelsfall: einfach ausprobie- 
zen. 

Stört es Sie, daß Sie vor dem Aus- 
drucken eines Textes erst einige 
Fragen beantworten müssen, ob- 
wohl Sie sowieso die Standardein- 
stellungen wählen? Besonders, 
wenn auch noch ein langes Inhalts- 
verzeichnis angezeigt wird, dauert 


Sie können aber auch sofort, nach: 
dem Sie den Programmnamen ein- 
gegeben haben, »Esc« drücken. 
diesem Fall beginnt der Drucker so 
fort mit seiner Arbeit. Wenn Ihre Ta 
statur nicht richtig belegt ist, er 
scheint beim Drücken der Taste} 
»Esc« allerdings nur ein kleines »ö« 


Viele langdauernden Operatio- 


nen können Sie mit»!U«abbrechen. das »ewig«. 


In diesem Fall können Sie auch »IÄ 
(t [)« drücken. (Helmut Tischen) 


»Hilfe« in Sicht 


Wenn Sie eine Datei verse- 

hentlich gelöscht haben, 

dann ist guter Rat teuer. Mit 

einem Diskettenmonitor ist 
das Problem schnell behoben. 


Kennen Sie das Problem auch? Das Kommando »ERA 
Name.Zusatz« ist schnell eingegeben. Doch das Programm 
wieder zu retten, ist schwierig. Auf der CP/M-Diskette von 
Schneider suchen Sie vergeblich nach einem Programm zur 
Rekonstruktion der versehentlich gelöschten Quelldateien. 
Die BAK-Dateien sind wegen der begrenzten Speicherkapazi- 
tät sicher schon gelöscht. 

»Help« gestattet den direkten Zugriff auf jede Spur der Dis- 
kette. Die Anzeige erfolgt gleichzeitig für 256 Bytes im Hex- 
undASCII-Dump. Änderungen können sowohlim Hex-alsauch 
im ASCII-Teil vorgenommen werden (Wechsel durch TAB- 
Taste). 

Eine Spur wird jeweils am Stück eingelesen und im RAM zwi- 
schengespeichert. Dadurch erfolgt der Zugriff auf jedes Byte 
einer Spur sehr schnell und übersichtlich. Jede Datei auf der 
Diskette ist damit leicht zu ändern, auch das Betriebssystem 
(zum Beispiel durch Übersetzen der Fehlermeldungen). Die 
Anwendung von Help ist aber nicht ohne Risiko. Benutzen Sie 
deshalb nur Duplikate, um nach eventuellen Fehlern auf die ur- 
sprünglichen Daten zurückgreifen zu können. 


Unsere zirka 3 KByte lange Routine wird im CP/M-Modus: 
»Help« aufgerufen. Die zu untersuchende Spur wird direkt eii 
gegeben. Mit den Cursortasten kann man innerhalb des Anze 
gefeldes beliebig hin- und herspringen. Die weitere Tastenbe 
legung befindet sich in der Fußleiste der Maske. Im einzelne 
sind das: 

‚Shift mit Cursor nach oben oder unten — Wechsel des A: 
zeigebereiches innerhalb der Spur 

Tab — Wechsel des Cursors in Hex- oder ASCII-Feld (wech- 
selnd) 

Copy — Verlassen der Spur mit Speichern der Änderungen‘ 

Ctrl-C — Verlassen der Spur ohne Speichern der Ände 
rungen 

Ctri-C (im Feld Spur) — Programmende 


Arbeiten mit Help 


Um eine gelöschte Datei wieder aufzurufen, geht man amı 
einfachsten wie folgt vor: 

1. Help aufrufen 

2. Spur 2 betrachten: 

Im Anzeigefeld erscheint jetzt die Hex- und ASCI 
Darstellung des 1. Teiles des Directory. Es werden je Anzel- 
gebereich Einträge dargestellt. Gelöschte Files werden im 
Byte, das direkt vor dem Dateinamen steht, mit dem Wert ES’ 
hex markiert. Ersetzt man diesen durch 00 hex, so ist de 
Löscheintrag rückgängig gemacht. 

3. Jetzt ist noch das Sichern der geänderten Spur mit 
»Copy« erforderlich und das Programm ist gerettet. 

Mit einer Einschränkung: Die Rückbesserung des Inhalts- 
verzeichnisses der Diskette ist nur erfolgreich, wenn nicht 
schon andere Zugriffe auf die Diskette erfolgt sind. 

(Heinz-Dieter Lange) 


; Sonderheft 


Die Quelltexte sind mit dem Assembler M80 aufgenom- 
men worden. Gegenüber ASM.COM weicht das Listing 
deshalb in folgenden Punkten ab: 

— Label müssen beim M80 mit einem Doppelpunkt en- 
den. 

— Die getrennten Listings 2 und 3 sind zu einer gemein- 
samen ASM-Datei zusammenzufassen. 

— Verwendete Macros sind gegebenenfalls aufzulösen, 
das heißt die Zeilen zwischen »Macro« und »Endm« sind 
dort einzufügen, wo jeweils der Name des Macros als OP- 
Code aufgerufen wurde. 

— Der Pseudo-Op-Code »IF2« wird nur im M80 verwen- 
det. Dieser Teil muß beim ASM ausgelassen werden. 

— Die Umschaltung auf Z30-Mnemonics muß durch ent- 
sprechende DB-Anweisungen (zum Beispiel für LDIR = DB 
OEDH DB OBOH) ersetzt werden. 

— .‚Comment-Zeilen können ausgelassen werden. 

»HELPCOME« wurde in zwei Dateien erstellt und mit dem 
L80 gebunden. Für ASM muß diese Quelldatei zusammen- 
gefaßt werden. Dadurch entfallen die Hinweise Extrn/Pu- 
blic. Das gilt ebenso für die Sonderform der Labeldarstel- 
lung mit zwei Doppelpunkten, die für den M80 die Public- 
‚Anweisung ersetzt, und für den Aufruf »Name# #«, der die 
Sonderform für den Aufruf eines extern definierten Label 
bedeutet. 

Wer den Basic-Lader abtippen will, dem sei gesagt, daß 
das Programm auf Diskette die benötigte »HELPCOM«-Da- 
tei erzeugt (beziehungsweise »LPRINT.COM« der folgen- 
den Routine). 


10 /nannnunasnennensandsnansuntansennen. LOECC) 
20 ;# (c) Heinz-Dieter Lange EFDB@] 
38 Kamper Weg 98, 221® Itzehoe x Insesı 
AG -sunnunkeunussenhensissunuunsensune LE9DZI 
5@ ‘Basic-Lader fuer die Datei ’HELP.COM 

5 L92E41 
68 DPENOUT"HELP.COM":zeile=19808 [28561 
70 pruef=® L192C3 


sa Fon j=i TO i+7:READ d$: IF d$="Ende" T 
N .SOTO 110 ELSE d=VAL(HENSGEIAPRINT 


v5 CHR$ (d) ; :zpruef=pruef+d:NEXT @4E21 
9@ READ pzIF pruef<>p THEN GOTO 148 [&2@E1 
190 zeile=zeile+12:60T0 7@ L7EACI 
118 PRINT"Alles 0.K. LD7D@] 
128 CLOSEOUT Lac421 
138 END [B416] 
14@ PRINT"Pruefsummenfehler in Zeile"zei 
e L9A7B 
15® CLOSEOUT 11048] 
160 END EFIC 
17@ DATA BE,@C,CD,21,09,21,02,06, 314 [S1E@] 
188 DATA CD,75,BB,BE,96,CD,21,09, 920 L7D78] 
190 DATA 06,44,CD,B6,06,BE,9C,CD, 842 L8A7AI 
208 DATA 21,09,21,035,06,06, 12,CD, 313 L[@D96] 
210 DATA C0,06,21,03,4B,06,12,CD, 538 sBE4 
220 DATA C0,06,21,05,38,06,11,CD, 528 L15C0] 
230 DATA C0,@6,21,15,06,CD,75,BB, 767 CCA243 
240 DATA GE,93,CD,21,09,06,44,CD, 687 12550] 
250 DATA B6,86,0E,99,CD,21,09,21, 635 192141 
240 DATA 04,@7,CD,75,BB,06,44,CD, 799 [3064] 
270 DATA B6.06,11,00,06,21,01,10, 469 LABAAI 
280 DATA CD,F9,08,11,04,07,21,03, 526 EC2E4] 
29@ DATA 88,CD,F9,08,11,47,07,21, 598 [7518] 
300 DATA 05,04,CD,F9,08,11,B3,07, 674 15306] 
31@ DATA 21,16,29,CD,F9,@B,AF,CD, 938 LEDB6] 
320 DATA BD,88,22,47,09,5E,23,56, 526 137F8] 
33@ DATA EB,22,44,09,11,0A,00,2A, 421 LADECI 


340 DATA 47,09,19,5E,23,56, Eu: 7E, 681 
35@ DATA 32,49,89,A7,1F,32,4C,09, 465 [5C0@] 


360 DATA 21,17,0A,CD,75,BB,86,03, 584 [2320] 
37@ DATA CD,02,05,FE,@3,CA,AE,BA, 849 [2F861 
380 DATA CD,18,06,FE,1C,CA,AQ,@6, 877 LC@86] 
390 DATA FE,28,D2,A0,06,32,43,09, 796 C4D261 
400 DATA CD,D4,05,AF,32,45,89,CD, 930 [EE66] 
41@ DATA 56,05,AF,CD,83,86,2A,3D, 711 LED421 
420 DATA Q9,22,3F,89,7E,CD,AD,06, 529 CCD48] 
430 DATA 21,53,05,72,23,73,2B,CD, 633 CF1E@I 
440 DATA 8A,09,FE,F@,CA,BQ,02,FE,1147 LEEBA] 
450 DATA F1,CA,F1,22,FE,F4,CA,68,1498 C67D8] 
460 DATA Q4,FE,F5,CA, 79,04,FE,83,1087 tasAB] 
470 DATA CA,AB,@6,FE,E@,CA,C1,04,1245 [1569] 
488 DATA FE,@9,CA,39,03,FE,F2,CA,1223 LZEDBI 
490 DATA 7B,02,FE,F3,CA,76,@02,FE,1198 LZ1CEI 
500 DATA 50,DA,D7,@1,FE,3A,DA,1B,1839 LI@AEI 
51@ DATA 82,FE,41,DA,D7,21,FE,47,1088 C9AB41 


CPIM 


528 Dara D2,D7,81,77,CD,F6,94,23,1955 [98401 


538 DATA CA,D7}01,CD,31,06,2A,SF, 783 
540 Dara 89,77,23,22,3F,@9,57,CD, 561 
55@ DATA 78,BB,E5,2A,3B,09,E5,CD,108@ 


56@ DATA 20 BB,7A, Es, 7F,FE Fu D2, 1279 
570 DATA 44,02,3E,2E,CD}12 635 
E 


520 
\2B,C3, c9, ‚Bi, 563 
A,73,04,3D, 698 

‚89,B7,C2, 634 
738 DATA C7,02,3E,08, ef F6,804,2A, 768 
740 DATA 3F,09,7E,11,F0,FF,19,22, 769 
750 DATA 3F,@9,CD ar 


27} a a 
770 DAFA 3A,39,09,30,32,39,09,30, 

788 DATA 3B,89,3D,32, 3B, a9, cs, 70, 554 
790 DATA 82,3A,42,09}FE,@F,CA,7S, 721 


838 DATA 19,22, 3F}@7!CD,69} 
840 DATA BE,04,CD,FC,@8, 
85@ DATA FOREN ALREN 
860 DATA 09,34,3B,89,3C,3: 
870 DATA C3, ABS UED.Be M7 
88@ DATA ®1,CD,78,BB,2: 


686 
900 DATA or F6,04,2A,39,09,25, 2: 634 
39)09,2A, 3B,89 CD, 75 ‚Bi 685 


990 DATA 58,03, 00,12,09,2 2 


1078 DATA 3B,89,C3,55,03.2A,39,09, 457 
1288 DATA CD,75,EB,C3,70,@2,3E,09, 889 
1998 DATA CD.12,89/2A,3F,09,23,22, 415 
1188 DATA 3F,89,2A,39,09,C3,AA,0S, 548 
111@ DATA 3A,46,89,B7,CA,7A,8 
1128 DATA 32,46,09,3E,08,CD,1 


1188 

1190 DATA PER E E EEN 
120@ DATA 2A,3B,09,2D,C3,CF,05,3A, 618 
1218 DATA 42,09,FE,@F,CA,9A,BA,SC, 764 
122@ DATA 32,42,09,2A,3F,@9,11,10, 272 
1250 DATA 8@,19,22,3F ,09,SE,@A,CD, 408 
1248 DATA 12,09,34,39,09,30,32,39, 318 
1250 DATA 9@9.24,3B,29,2C,C3,CF,03, 568 
126® DATA 34,45,09,B7,CA,73,04,3D, 7@1 
1270 DATA C3.BC,01,CD,B6,04,C3,D7,1185 


a4 
13508 DATA 45,09,57,CA,94,04,3D,F5, 927 
1351@ DATA 24,39,89,CD,75,BB,F1,C3,1053 
1320 DATA BC,01,CD,B6,04,03,58,03, 866 
1330 DATA 3A,45,89,3C,21,4C,09,BE, 504 
1348 DATA Cr 9A,DA, ‚CH = 04,0E ‚aD, 729 


137@ DATA eh C6, ‚ ja 756 


1439 DATA 22,3F,99/C3,D1,94/CD,12, 737 
1448 DATA 89,3A,41,89,2F,32,41,09, 312 
1450 DATA B7,C9,21,53,05,48,CD,@A, 792 
1460 DATA Q9,FE.03,C8,FE,08,CA,SA, 988 
1470 DATA 05,FE,0D,CA,37,05,FE,3@, 836 
1488 DATA DA,86,05,FE,7F,CA,SA,BS, 875 
1490 DATA FE,3A.D2,06,05,05,C2,2F, 779 
1500 DATA 05,04,3E,87,C3,31,05,77, 446 


Listing 1. Der Basic-Lader für »Help« 


LEC&2] 
TEsBB] 


13026] 


L 
i ll 


138421 DATA 
[A198] DATA 
C5aa8] DATA 
CABBCI DATA 
[D4D@3 DATA 
Lance] DATA 
1273E1 DATA 
L&B601 DATA 
£5B7C1 DATA 
[B6621 DATA 
11932] DATA 
CC99C3 DATA 
[08961 DATA 
17C721 DATA 
132943 DATA 
[8284] DATA 
[SEBB] DATA 


252 L2BE21 
253 LZ1E81 
278 t5Eac] 
272 L7AF61 
245 L160C1 
243 L[2D@61 
266  L24F6] 
267 LöCFCI 
268 LCEF@I 
672  L9BAB] 
688 [20201 
747 (51521 
615  L444E] 
668 [21441 
338  L[3@0C1 
441  L[BIF2I 
62,72,75,63,68, 7355 [61221 
L6ABAI DATA ‚54,52,4C,2D,43, 5iı CAFAQI 
C33BC1 DATA +20,20, 2655 LBZACI 
t@F64) DATA 20,20.20,20,57,65,63,68, 519 L[S6EC1 
{DF183 DATA 73,65,6C,20,48,45,58,20, 617 [52281 
L112A3 DATA 3C!2D,3E,20,41,53,43,49, 437° CAASAI 
[e1r2ı DATA 49,2D,43,75,72,73,6F,72, 756 L4B6B] 
140741 DATA 3A4,20,18,20,54,41,42,20, 395 L94F6] 
1837A1 DATA 18,0D,04,20,20,20,28,20, 297° LSSEE] 
EScac) DATA 20.20,20.20,20,20,20,20, 256 LSEAB] 
[SEE] DATA 20,20,6E,65.75.65,20,535, 688 [99221 
[51563 DATA 70.75.72.20,28,6F,68,6E, 748 LFC62] 
ECAAEI DATA 65,20,41,62,6C,61,67,65, 785 L771E] 
[B1D23 DATA 29,3A,20,18.4 464  LA1SQ] 
L2AB43 DATA 2D,43,18,20,20,20,20,20, 296 LB7EB] 
L9A921 DATA 20.20,20,20,28,18,2@,6D, 333 L[62E81 
LED&BI DATA 69,74,20,18,20,41,62,6C, 588 L431E] 
LAsgEI DATA 61,67,65,29,3A,28,18,43, 523 [85201 
[SSaEı DATA 4F,50,59,18,24,07,2A,2A, 3997 [@56A] 
La5Fo1 DATA 24.20,44,69,73,6B,2E,20, 547 LSESE] 
£DB121 DATA 45,69,6E,67,61,62,65,2D, 728 [7174] 
[78123 DATA 2F.41,75,73,67,61,62,65, 743  [B1441 
[11821 DATA 66,65,68,6C,65,72,20,2A, 794 13448] 
17C94) DATA 2A!2A,24.2A,SF,89,E5.C1, 656  L[SDA&I 
[201AJ DATA CD,DF,28,34,44,09,4F,06, 656 [3906] 
[SEsA) DATA 00,2A,4A,09,EB,CD,D1,08, 782 L[85C4] 
CE62A1 DATA 44,4D,C3,07,08,4F,24,@01, 6855 LBBAQ] 
LEEAEI DATA @8.11,18,00,19,E9,4F,Q6, 584 LFAS2] 
[71341 DATA @0.2A,01,00,11,18,00,19, 112 _ L7EDEI 
LADBO] DATA 00.2E,30,E9,2A, 645 L7ABAI 
LorBaı DATA 1E,00,19,E9,2A, 348 L[463A] 
134021 DATA 1,00,19,E7,2A, 351  L1@QA] 
1747c1 DATA 00,19,E9,0E, 3264 175081 
LAB7AI DATA ®; 1,27,08,19, 126 LCSD@] 
re DATA A,FE,24,C8.1258 [4850] 
Fe2003 DATA 9,D1,13,C5, 962  L[12B81 
[BBE&1 DATA D,1B,09,E1.1152 [7418] 
FH DATA F)CD,21,09,1146 L4F06] 
Lars DATA E1,C1.C9,24,01,00,2E,09, 717° [8784] 
rc) DATA E9.2A.01,00.2E,0C,E9,00, 567 L[648C1 
La6AB1 DATA 12436] 
Er DATA 00 20,00 135381 
197481 DATA 20 [3E28] 
er DATA (2D2AJ 
oessı DATA 00,00,00,197, 25 L[BSsEI 
ee DATA 2E,30,E9,2A, 645 LEAB6] 
Lasseı DATA 1E,00,19,E9,2A, 348 L[SES6] 
L21261 DATA ,11,21,08,19,E9,24, 351 [48061 
nn DATA 91,00,11,24,00,19,E9,0E, 326 [95161 
a DATA @2.2A,01,80.11,27,00,19, 126 LDBDEI 
Be DATA E9,CD,75,BB,1A,FE,24,.C8,1258 L4Q5E] 
ES2ecı DATA 01,81,01,01,01,01,01,0 8  LAasal 
a DATA Ende 12442] 


EPSber | Listing 1. Der Basic-Lader für »Help« (Schluß) 


EL EPTI 


EKINTIHRTSHHLESBEHER 


FETFZLEEIHUNTHTAISETEN 


SET, 
ä 


EERRRERRELEEERTS 
SRESKENURE 


AT 


IRISENNEHBASBEN 
ELRTSERNERFILF 
NERASSEBNESSRESEUNN 
BERNSESBSEHBBBSSERE 
ERSRERSERRSERNEBEH 
suFEaHuBEnBBLSSE 
SBANTEBSENSSBSS 


4 
38 
8 


EBFANAEAMMNS 


ne na 
© 


5 


BIHRADIISTIEHAETT 


gIHE 
BE 


GSBSRTSRSNENSSIEHmE hm 
EREPIEFF 


ip 
S 
se 


He, 
uoRn 


FLAFSERIFFATTTTITTTEH 


[7] 
Fi 
omn 
gun 


TERTTNIFISPITHINSEITATA 
En 


BEAHFLARSIENG- AnMuaEID 
5 

SErRHm 
® 


N 
D 
$} 


PEEFFREREELSTEFFREFPERFIF N 


os 
24 
32 
7} 
2 
7E 
E& 
E6 
c9 
47 
17 
aA 
or 
Ei 
D2 
c9 
06 
06 
iE 
&F 
Rt 
® 
21 
21 
27 
CD 
Es 
12 
48 
20 
36 
3 
2@ 
20 
2ZE 


SESSEENBIIHAS 
EREFITSSESERFELFITTEREFRERS 


w 
8 


u 
ERBBSHRNERBASDERB 
EUBNSHSFENHEBBBERBARTRER 
SSRHYHEBSBHHBSEREREBSFHBNINAR 


BESSEHSBaSS 
BSSERABASS 


Bm QuTrLG 
Kran 
Ban 
Brrmn 
ExTan 
Era 
Exam 
Ara 
um 
Er 


erlits-Prosnamm © EL P© zur Korrektur von CPM-Diaketten 
ae 


Adressen aussfür MaOUT.REL 
Aueuie 
Exrn 


su 
Eu ‚nbachlußmarke im Eu.PUF 
ws {Freil nach oben 

Eu 'FFeLL nacn waken 

Eau IShift Preil nach oben 
eu 'Snaft Frei nach unten 
Es 


Minkei links unten 


SHULDRIEHLLKATUNEFSEAFHLEREE 


ww : 
E77 


sen 
= 


Listing 2. Freunde des 8080-Assembler-Codes geben das 
Programm direkt ein (Teil 1) 


HSSSUSREUGEGKBE 


BERRSBSHEHBERE 


47m) Bılaschirm \cachen 
Cru 
L 


hemmen) Fenster für Sektoreinbienduns setzen 
Keaan 
Hoben Hänıe 
Part 
DAWUT ‚Ecke Links oben setzen 


8,88 688 horizontalen Strich ausgeben 
Arerk 


E:REUBEN 
DUMOUT ‚Ecke rechts oben setzen 


JA6 Zeilen senkrechten Strich zusseben (links) 


wie vor (rechts> 


Hirennlinie zwischen HEX und ASELT 


Hecke unten Links 


suntere Linie ziehen 


vu 
a HECke unten rechts, 


> Unterteil iunsastrich 
Erı 
wi 


mm) Noßtzeile (überschrift) 
1 


7 obere Leiste tür Sektorsarstellun aussnben 
DeTiız 
Be 
PrısıR 


> Vextzeile unten 
I be 
Fer 
Su Fersık 

> Systammerte zum Laufwerk nalen 


‚Laufverk ausvanten 


Hör. übersetzunsstäbelie ablesen 


HAB. Pos. im DFH 


JHL = Anfans Parameterliste 
1Zahl der Records je Spur (he 128 Butes) 


„12 
‚256 Bste-Einheiten 


den 
er 
Er 
mov 
1004 
EN 
BunG 
Er 
wu 
pe 
Des, 
Man 
ie 
mu 
Sum 
av 
STR 
Eu 
E4 
sin 


‚2 Stellen 


ikeine Einsaber 


‚Eingabe zu gras 


Heasıs-lerte für Zeilenanfans setzen 
IStartagr, in Sektarbersich nach FIFRER 


-— Einsaberuffer mit den akt. Merten (Me«i+2) im ES versehen — 
Bw 


A jBinarvert aus Tentsufer 
SL Gm lumsansein in Aeuadez, ASCHl-Zeicnen 


3 


" Ht.Eute der Es-Anzeise in den Eina.Purter 
u 

»2.84te in EG.PUF 
IR sten auf ER. PUF-AnFans 


‚1 Zeile aufwarts 
#1 Zeile abwirts 
Hi Sektor zurück 


HEHGRERGE 38 


41 Sehtor vor 
sermi-er 
Ineus Spur (ohne Aolase) 


5 


VSPruns zun RSCH-Esitur 


»1 Pos. nach Tanks 


EREHSKSK 


+3 Pos. nach rechte 
; Zeichgpamamne Cm - 


IRSTE sFehter 


agjx: 


ERRUHBEBRESDARBBERNDE 


REDSIERALER? 


RONDBBRD 


ui 


aRaR 


Luk 


& 


ENBEUBSBESORBBSETRERERSERRSHHUERESGE: 


Hrenier 
‚Fehler 
HPnlase ın Futter 
ein. 

Einsabe für 1 Zeichen ım Fextsuffer ist eriesist —— 


/bisares Zeichen in Teteufter ablesen 
Inufteragrssse erhöhen 


»2eichen retten 
Ser lee — 


‚Punkt ausseben 


{nut machstes Zeichen im ASCLI-Bereicn 
HCursor wieder um HEX-Bereich 
HLeerraun überserinsen 


AUSTRRRSBERERIE EgREEE 


3 


E13 


Zerienense? 
nein 


SIE 


Hetzte Zeile 
Imissansszeile Editor 


ur 


meue Zeile einrichten 


"Zeichenzänlersi 
(nächste Position 


mach rechte — 


1 losiscne (13 Position nacn Links — 
Sure 
Se 1. Pos. Im Hemborpeifeld 
1 Pos. zuruch 
Ks 


Ras 32 3EsEnR 


21 


mus 
TRSTE-1 sincl, Einsaberufferasn. -1 


ZZRE  iZeichenzähler 
H 1er 

Tee 'Zertenantane 
ED 


RSS 32 


Tre _sZeichenzählen -ı 
1 G@urPe in Hestela zurück 
Pirror 
AM sletztes Zeichen noch einmal holen 
RS aut Sen ES ausseben 


v,0sr5 
PRTSIReS 58 nach Links 


„4 Stelle zurück 


1 Zeile aufvarts — 
he 
F 
T.EELL ‚oberste Zeile 


a 
Zne 

Bes 

a ‚word. Pas. ın Hen-feld? 
waz 

Ei 

mus 


nern 


BHSEI HOEEBE BE BREI 


=! 


HPufferade, -18 Zeichen 


‚saltes Hex.Zeichen noch einmal ausseben 
Bee 
FRISTRES +2 Aussabersos. uieder zurück 

(beice Cursorrositionen 1 Zeile haher antzen —— 

. 

GMT ‚Cursor 1 Zeile hoher 
Fa 
Ürsex ‚Zeile für Men-Curser -ı 
Er 


Ivord. Fos. im He-felar 


WNorrektur ser Position 


‚Putferaan. +18 Zeichen 


Jaltes Mex.Zeichen noch eimal ausseben 


SIR ERBEN ‚Zeile für Hes-urnsen + 


_ising 2 Freunde des 8080-AssemblerCodes geben das Programm direkten (il) 


VPurternan. 


ies-Pos. 1 Feld zuruck 


Eu 
reis URSCH-Lurser = 


Aseit - Editor 


Jakt. Cursor-Pos, ermitteln 


4Pos. im Nex-Feld LinksbundieT 
Stelle zurücksetzen 


SHSEI ABEREEEEES 


SEBEhägeR: 


#4 Stelle nach Linke 


AILLERD) 


ii 


‚Lursor 3 Zeite hoch 


B 


un 
z 
NappE ERERSIRESER 


‚Uursor im ASCH-Feld setzen 
Haile für Heros, -1 


#1 Zeile aufvarts Zeile -1 


At Zeile abvarts 


SRSK; 


vunterate 


IRIRIRERSR! 
SRESEEEBBEEREISESHHESR 


EN 


BERazsRssgganaugguynne 
! 


iR 
i 


‚Cursor 4 Zeile tiefer 


HZeile für Men-tos. ei 


3 
A 


ne si 


SERSREE SREE SEHSE| SERSRSRE HALE 


Aueos 


4 


Armeen Wechsel des Sektors 
IT Sektor inmerhalb der Spur zurück 
Tor 


® Hl. Sektor? 


1Zeichen ın Sektor schreiben 
ia 


‚Zeichen retten für PWTnex 
De 


sargisı“ 
&5 H E 
a5! SRREHSE 


N 


5 


steichenzahler 1 
HFolseron. Hen-Feis 


orsnsc 
RIRSTE-3 ‚Schleife ‚N 


Hetzter behtort 


= 
sa 
E73 
523 
3 
E23 
E33 
37 
E41 
3 
E 
Ent 
32 
35 
3 
E 
E53 
537 
Er} 
3> 
E47 
Fr 
E43 
3 
Er 
5 
3 
7 
EH 
er 
E41 
Ei 
= 
E 
FE 
= 
= 
Er 
= 
= 
= 
Et 
= 
E 
Fu 
= 
= 
” 
== 
= 
m 


kl 


ST 5 Aussaberoaitionen zurück 


Ba ara] VEErb pages] vn 


3233 


Listing 2. Freunde des 8080-Assombler-Codes geben das. 
Programm direkt ein (Teil 1) (Schluß) 


EIN Bestim sungen mr. 


Auzsabe Bildschirm in henareld (mit DUTFLE> 


mL com 
um WIrLG 

om 

FIR ws 

mr 

x HAbfrase in Hauptprogran 


Immerisches Einfabeteid 


1 zum vergleich mit Auxı-dert füllen 


LET PITT 


LOGO 


Jeder kann programmieren 
Computersprache für Eltern und Kinder 
DANIEL WATT 


LOGO...Ergebnis der Erforschung menschlicher 
Intelligenz 

Entwickelt von Seymour Papert, Pädagoge und Mathematik 
professor. 

Erste Computersprache, die bewußt Strategien menschlichen 
Denkens dient - und in ihrer Logik der Realität gerecht wird 
LOGO ersetzt BASIC, sagen Pädagogen und Mathematiker. 
LOGO kommt dem übergreifenden, assoziativen Denken 
entgegen. BASIC dagegen ist ein Setzkasten von Logik-Buch 
staben. 

DANIEL WATT...hat im Team von Seymour Papert 
gearbeitet und ein Buch geschrieben, das voller Bilder seine 
Erlebnisse mit Kindern am Computer wiedergibt. Ein hochwer- 
tiges Textbuch für LOGO-Kurse. Ein Buch für Lehrer, die nach 
einem bereits von Schulbehörden empfohlenen LOGO-Kurs; 
buch suchen. 


“Buch des Jahres 1983” 
in den USA 


E 
en 
Ein Buch für APPLE II, C-64, IBM PC, ATARI bis 520 ST., T1-99 und Schneider CPCs. 


te-wi Verlag GmbH 
384 Seiten, A4, DM 59,- Theo-Prosel-Weg 1 


8000 München 40 


COMPUTER FÜR KINDER 


er - ein kindgemäßes Buch für die erste Be 
hren Eigenwilligkeiten, und ihren unerschöpflichen 
zu unserer Gegenwart und zur Zukunft unserer Kinder. 
2t sich an Kinder im Alter von 8 bis 13 Jahren, für 
deren Intere 0 keines der unzähligen Computer-Bücher ge 
schrieben wurde 
‚Computer für Kinder Kinder eingestellt und be 
äftigt sich unterhaltsam und leicht verständlich mit folgenden 
hemen: 


Wie arbeiten Computer 

Wie funktioniert mein Computer 

Wie programmiert man mit einfachen Flußdiagrammen 
Wie kann ich BASIC leicht verstehen 
Programme aufbauen mit Befehlen 
Farbige Graphiken entwerfen 
Erklärung von Computer-Begriffen 


ın war Kindergärtnerin, ehe sie 
znete und zwischen den Welten 
utern zu vermitteln begann. 


Computer für Kinder, A4 quer, Fadenheftung, 
über 100 Seiten, je Ausgabe DM 29,80 
vorliegend für: VC 20, C 64, Apple Il, Atari 


DM 2980 DM 2980 ; DM 199.-. DM 49, DM 386, 


HEMESOMPUTERWORLB.EOM 


keine Eimsaber 


Eu 


‚wer. 


SHIHSK 
.E Bi 


1 
"Zähler -1 

Feldlanse überschritten — 
‚eeiL 


AERIRER 
Ines: 


IHBlane im Putfen 


Ds 


E 


Cost 
EIRP  Schleire 


agagangeı 


sa2g 


u.Pur us 


1 Sektor (296 Buten) auf sem Bildachirm anzeioen. 


r 
In'enehalt setzt Binarzanl 


‚zirter 


AUaSE ASRARRESgRERE 


Öimirzeichen ın mnaderinaler Form in DE bereitstellen 
Hakt. Zeigen vorbeiesen vu Fo 
rc 


»2anler fur Zeilenaussabe 


1Zeichen im ASCH-Putfer ablesen 


3 
E 
mx 
AL 
6 
For 
Pr 
mov 
Ri 
wu 
Bi 
u 
@i 
Br 
wi 
er 


1Zeicnenzänter +1 


‚Schleife 


Haut Feizeiie 
Mur ACHT 


{fur Mx-Curser 
ISpatte 8 Cherzfeld> - DE: Hes-Cursor-Position 
Hr Spalte ım ASCHI-FeIG- ML wie vor (MSCHLD 


‚Sraltenzanler auf ® 
HPrimson. links in hen-Doppelfeid 


13 


SEERESGBSHEBEREHUGKERESK 


vezth 


Di - 


CPIM 


su, — 
32. Tarı.ı vs ae 
33. TRIe De 10-1 22 3 5-6 en 
E DB © 0123406 78mMELbers 
25. TuTa0ı 08 MW uchilhe MOORE WOHLE WEHEN ABER 
ar 
er Da WHOLE EL TRUE RC 
.ERLF 
397 DB MORE WR" LE" DBCRLFL ER 
RLr 
ve Fee 
Tataıı DB /sortar vor, c zurusch: "10H, Snirt Preiln LanıcıLr 
De 1er n 
ve 
De 
3 eh N 
FEMLRL: 6 Tu7aas Diäk, Einpabe-Ausnaberenier ErEw 


upon - Schnittstellen --- 


SSRRAHBTERSEsE 


um ec 
mw ch 
mi 80 
UM ker 


En Hay 1“ 
Me Seiser 

En -—— Diskettenrautinen —- 

u. SELDRY MOV Ch JLaufwerkanummen in C 

Er ra 

F7 Di bu 

we [3 

En POL 

30} 

31. SELTe cn 

Er MB BC = Spuren 

= De 1 

Fr DM Denen ıSEtime 

Fa Deo 

Br Fin 

= 

398: Sera La 1 

Fa WI Lraom 

“00 Fon 

Era 

Age: SEISEC- LnLO 

era DE BuiEH 

Pr Dr 
For 

wei 

7. seromm Lu 1 

Br er 

er m © 

Bir FOL 

a, 

die. RER: uno 

43 er 


2. wITE EIWS-FIa8 Für Sektor-Blockine 


Faısıe 
Pesir 


con 


ann 


vconın 


Fe 1-Putter 
eisen 1m ASCHL-Purser 
MCHhert Sen Carsereesition Hen-tels? 


12 9er 
6 6 


Zerienzanler (mar. 16) 


‚Antantsasr. des DEM 
HAuzanl ser Records 


Hbersetzungstabellı 

Anzant der Sartone, 
wi Startasr. ur Tentauffer 
vo 


Listing 3. Die Unterprogramme von »Help« (Schluß) 


Drucken ohne 
Platzprobleme 


Speicherplatz ist rar beim 
Schneider-Diskettenlaufwerk. 
A| Verkürzen Sie doch einfach 
| die Systemroutinen. 


Besitzer des Schneider-Diskettenlaufwerks sind ständig auf 
der Suche nach ein paar zusätzlichen KByte Kapazität. 
Schließlich sind 180 KByte schnell verbraucht. Dateien, die 
nicht unbedingt gebraucht werden, sind deshalb schnell ge- 
löscht. Zu diesen Dateien gehört das Dienstprogramm »PIP«, 
dessen Nutzen sich bei den meisten auf das Kommando »PIP 
PRN:=Dateiname.Ext« beschränkt. 

Mit LPRINT Dateiname.Ext« haben Sie unter CP/M 2.2 einei- 
genständiges Programm, mit dem Quelldateien entsprechend 
den besonderen Vereinbarungen, die für »PIP PRN« gelten, 
ausgedruckt werden können. Der Platzbedarf auf der Diskette 
beträgt aber nur 1 KByte. Angaben über den Assembler finden 


10. en LIFE I 

20 ‘* (c) Heinz-Dieter Lange * LFDEB] 

El Kamper Weg 98, 2218 Itzehoe #* L[BSE6I 

40 '#unen ee  LEIDZI 
se San Lader fuer die Datei 'LPRINT.C 

LE944] 

68 OFENQUT«LPRINT. COM":zeile=1208@ [32661 

70 pruef=@ £192C) 
88 FOR j=i TO i+7:READ d$: IF d$="Ende” T 
HEN GOTO 11® ELSE d=VAL ("&"+d$) :PRINT 

#9, CHR#$ (d) ; :pruef=pruef+d: NEXT [@4E21 

90 READ, m IF pruef<>p THEN G0TO 148 L&28E] 

100 eile+10:60T0 7@ L7EACI 

110 BRINT Alles 0.K. £D7D@] 

120 DT [@C42] 

130 EI 1B416] 
140 ERINT“Prusfsunnenfehler in Zeile"zei 

le L9A781 

15@ CLOSEOUT 11848] 

160 END LEFICI 

170 DATA 21,00.00,39,22,57,02,31, 262 [91621 

180 DATA 81,02,AF,32,7C,00,11,5C, 589 ecası 

198 DATA @0,@E,@F,CD,85,00,FE,FF, 748 LF6BA] 

6BC4J 

tBiF@] 

LSEFB] 

LBZFEI 

LiCD8I 

[BE9CI 

[BEE] 


Sie bei dem Programm »Help« (Seite 101). (H-D. Lange) 
27@ DATA 5A,02,32,59,82,21,80,02, 396 L979E] 
288 DATA AF,32,68,02,23,7E,FE,1A, 764 ECB4E] 
29@ DATA CA,21,801,2B,E5,2A,59,82, 641 152123 
sa Dara 25,22,59,02,CD,CD,@1,21, 608 [92ER 


31@ DATA 5B.82.06.05,7E,CD,14,02, 457 
32@ DATA 23,85,C2,74,01,3E,3A,CD, 676 L9F2@] 


33@ DATA 14,02,3E,20,CD,14,02,E1, 68 L6CF@1 
34@ DATA GE,01,23,7E,FE,@9,CA,BS, 828 LAISEI 
35@ DATA ®1,CD,14,02,FE,0A,C2,8A, 824 L4D521 
368 DATA @1,3A,60,02,3C,32,60,@2, 365  LA9AZI 
378 DATA FE,40,C2,5C,01,06,08,3E, 681 tDa2C1 
38@ DATA @4.CD,14,02,05,C2,A9,01, 606 LD9BAI 
399 DATA C3.58.01,3E,08,B9,D2,BE, 959 L[266E] 
400 DATA @1,C6,08,C3,B5,01,5C,F5, 899° LAAS®I 
418 DATA SE.20,CD,14,02,F1,B9.C2, 941 [6E38] 
420 DATA BF,01,C3,84,01,24,59,02, 659 LD8201 
430 DATA RE 772  CBBOCI 
440 DATA 02,01,18,FC,CD,20,02,01, 437° LEEEB] 
45@ DATA 9C.FF,CD,80.02.01,F&,FF,1120 LBSA2] 
460 DATA CD,0@,02,7D,EE,30,12,21, 669 L[SE201 
470 DATA SB.02,3E,30,86,84,BE,CO [06201 
480 DATA 36,20,23,05,C L9SFCI 
490 DATA 3E.30,89,3C,DA 02241 
S@@ DATA A7,7D,971,6F,7C,78,67,F1,1168 L318E1 
51@ DATA 3D,12,13,C9,FS CFB7AI 
52® DATA SF,@E,85,CD,@5,00,E1,D1, 758 LF342] 
5390 DATA C1.F1,0C,C97,0E,09,C: [E448J 
542 DATA 00,0D,04,87,44,61,74,65, 412 _LD2B6] 


Listing 1. Der Basic-Lader für »LPRINT« 


DATA 69,20,6E,69,63,68,74,20, CABDAI 5 N. 
DATA 76,6F,72,69,61,6E,64,65, ED91C9 ‚5 Stellen ausseben 
DATA &E.00}0A,24,0D,04,07,4. LA41E1 
DATA 61,74,65,69,20,7A,75,20, LFECCI 
DATA 6C.61,6E,67,0D,84,24,00, C3F1AJ en 
DATA Q0,00,00,00,00,00.00,00, a LF»ECB] et fentzeile ausgeben -- 
DATA 00.20,00,20,00,00,00,20, c81C21 mm Tu. shan, In Texssufrer mürdck 
DATA 20,20,20,00,00,00,00,20, L3ACA] nen 
DATA au.an,um,uo, ‚20. 20,00,00, ESBC6I wor er 
DATA 20,20,00, 00,00,00 13408] Ir 
DATA 00,00,09, Eh IR: @2,02,F5, 536 L29EC1 Parrra fusgabe Drucker incl. woon 
DATA A7,7D,91,6F,7C,98,67,F1,1168 L7B9C) en Hehe 
DATA 3D.12,13,C9,F5,C5,D5,E5,1183 [51881 
DATA SF,BE,@5,CD,05,00,E1,D1, 758 L[ESS®] u 
DATA C1.F1,0C,C9,0E,07,C3,05, 120561 D izeitenzanter +1 
DATA 00,0D,0A,07,44,61,74,65, [C2B23 A ee 
DATA 0}6E,69)63,68,74,20, EC8D6] re 
DATA 7&,A6172, 68,6 Ehren, [7118] 

6E.0D.0A.24,0D,04,97,44, [481A] 2 n Prowanmzeilen sind zu ändern, wenn Drucker 
DATA 61,74,65,69,20,74,75,20, LE2C8J a Ranande ainon uicanvönschuben ala Esersedten urn 
DATA 60,61 ,6E.67,0D,8A,24,80, [3316] Hichen; In der vorlietanden Forn wird die netuendise Zahl von Leer 
DATA a0\00!0n\na/on.en.na,no. ae Zellen ala Krante Far son Seitenvorachub winaetuät. a 
DATA 00.20.20,00,00,00,00,00, [67081 
DATA 20,00,20,00,00,00,00,00, LBED2] 
DATA 20,20,20,00,00,00,00,00, E3DD4] 
DATA 20,20,00,00,00,20,00,00, E3CC41 g 
DATA 81,01,01,01,01,01,01,01, L99E6] start neue Seite 


DATA 21,01,01,01,01,01,01,01, [76683 an ei Rz 
DRTRSEINBLN ‚ai, EaeEs] n Woertnnnuns ser IRS-Pos. auf, den Drucke 


«fo 


2 Tner2 (Folse-Tng 
»lert auf TRB-Pos. setzen 


Ausgabe einer ASCHI-Datei auf den Drucker 
ren 083.88. se 42 Blank ausgeben 


a can 
1 te) 64 Meinzbieter Lange, Itzehoe Uprrert inein 
\ An Mugust 1965 Prints 


Loneyr 
Ihishbste für Textspeicherende D.LFONR JErsebnisteld 


„COMMENT. 

Das Programm LPRINT dat auf Drucker absestimnt, für die keine besondere 
ESC-Seauenz Tür den Seitenvorschub vorhanden tat (2.E. Seikosha GP-100R). R 
Durch Festlesung von ZMCHSL + ZVRSCH kann die Zahl der Je Seite zu druche = 1-Nibble auf 3 setzen 


HRoläse in Ergebmisteld 
den Zeiten Late Summe nub Fur DINMI-HochTormat 72 Zeilen sein? vartiert, 


auch Label PRT.FF') & Ersetzen der führenden Blanks in Ersebnisteld 


HGrunduert Zei lenzähler 


Higerzeilen als Zeilenvorschub Imaxı 4 führende Biks. setzen 


Ende, wenn Evte unsleich SH 
HBlank setzen 


& 


wo 
sr 

LosP _JStackpointer retten 
SPISTKIOP Ineu setzen 


por 


‚Schleife 


1zahler 
Ie'nims 8c 


Peg 


Zanler retten 
IE-BIE löschen 


ik minus © 
HEngebnta => L 


IN. mia 8 Cinel. Carru) 
HErSeinis un M- 
HBahler zurück 


€ 


vzutser in Ersebninfeld 
HRar. "in Lenk eh 


einaa Zeichens Lin M) auf dem Drucker 


JONM-Ranesne zurück Cnach HL für Addition? 
IR=B, ven Laden erfolweich 
Druck j2eichen nach € 


Po 
D 


1Pufferasr, um 128 Butes (1 CPoftesatz) erhöhen 
A. TRENON 
wrob mimun 206 
IRaE uineRar. aiesen Mert erreicht? er auf dem Drucken #1 
Intin, Schleife 


Kumarpurn 


a 
ECHT HZeilanzäner auf 0 
En 


HFolsezeichen im Tertrurten KIEYTE j2ähler für ide Mrs 
LFDnR äezinaler Werk der \fdı Mer 

zent Häeilenzäner 

’ 


sieror: 
mesad, Wert der Lich. #1 tige Fee 1Stantacnense des Textzulsers 
one 


HTextpufferaan. retten 


Listing 2. Der Assembler-Code für die speicherplatzscho- 
nende Drucker-Routine 


CPIM 


Drucker- 
steuerung 
leicht gemacht 


Auch unter CP/M kann 
man den Drucker sehr 
einfach ansprechen. Eine 
kleine Routine hilft dabei. 


Steuerzeichen an den Drucker zu senden ist unter CP/M 
nicht so einfach wie mit dem normalen Schneider-Betriebssy- 
stem. Wenn Sie zum Beispiel von Schön- auf Schnellschrift 
umschalten wollen, dann finden Sie keinen direkten CP/M-Be- 
fehl dafür. Sie können normalerweise nur CP/M verlassen, un- 
ter Basic »PRINT #8,CHR$(27),;...« eingeben und mit »ICPM« 
wieder in den Ausgangsmodus zurückkehren. Wie Sie sehen, 
ist das aber ein sehr umständlicher Weg. Einfacher geht es da 
mit dem hier vorgestellten Hilfsprogramm. 

Wenn Sie sich mit dem CP/M-Assembler auskennen, dann 
erstellen Sie das Programm »LETTERCOM« anhand des 
8080-Assemblerprogrammes (Listing 1). Wenn nicht, dann 
sollten Sie zunächst das Basic-Programm (Listing 2) einge- 
ben. 

Während der Ausführung des Basic-Laders wird eine Prüf- 
summe berechnet. Erscheint die Meldung »alles o.k.«, ist das 
Programm wahrscheinlich fehlerfrei (absolut sicher ist das je- 
doch leider nie). Andernfalls müssen Sie die dann angegebene 
fehlerhafte Zeile korrigieren und einen neuen Versuch starten. 

Hat dann alles geklappt, haben Sie auf Ihrer Diskette eine 
neue Datei mit dem Namen »LETTER.COM«. Das ist das ei- 
gentliche CP/M-Programm. Sobald dieses fehlerfrei läuft, 
brauchen Sie das Basic-Programm nicht mehr und können es 
löschen. 

Sowohl am Ende des Basic-Listings als auch am Ende des 
Assembler-Listings stehen die Steuerzeichenfolgen für die 
verschiedenen Druckerfunktionen. Jeder Datensatz besteht 
dabei aus einem ersten Byte, das die Länge der zugehörigen 
Steuerzeichenfolge angibt und einer anschließenden Folge 
der eigentlichen Steuercodes. 

Die Reihenfolge der Sätze ist dabei folgende: 


0. _ »Lückenfüllere: nur im 10. Doppeldruck 
‚Assembler-Listing sichtbar 11. Hochgestelit 
1. Unterstreichen abschalten 12. _Tiefgestelit 
2. _Unterstreichen einschalten 13. _ Standardzeilenhöhe 
3. __ Breitschrift ausschalten wählen 
4. Breitschrift einschalten 14.  Zeilenhöhe ' 
5. _ Schnellschrift einschalten 15. _Zeilenhöhe 1 
6. __komprimierte Zeichen 16. _ Zeilenhöhe 1'% 
7. Fettdruck 17. _ Zeilenhöhe 2 
8. _ Schönschrift (NLQ) 18. _Zeilenhöhe 2% 
9. Zeichen normal ausgeben 19. _Zeilenhöhe 3 


Tabelle 1. Die verschiedenen Parameter rufen auf dem 
NLQ 401 diese Schriftarten auf 


Wenn Ihr Drucker irgendeine Funktion nicht bietet, dann soll- 
ten Sie die Zeichenfolge durch einen »unschädlichen String« 
ersetzen. Also etwa durch ein Byte OOhex in der Länge der 
Steuerzeichenfolge. Keinesfalls dürfen Sie den Datensatz 
‚aber ersatzlos wegfallen lassen. 


Die hier vorliegende Version istfür den NLQ 401 von Schnei- 
der angepaßt. Die meisten Parameter werden aber auch vonje- 
dem Epson-kompatiblen Gerät verstanden. Der Aufruf der 
Routine erfolgt mit »LETTER abcd e«. Wie die einzelnen Varia- 
blen dabei zu wählen sind, das sehen Sie in Tabelle 2. Diesen 
Hilfszettel können Sie jederzeit mit »LETTER % aufrufen. Bei 
falschen Parametern wird er automatisch ausgegeben. 

(Helmut Tischer) 


‚Aufruf: 1) »LETTER ?%« 
2)»LETTERabcd I1e: 


Helptexte 


a: Hervorhebung 1 0- nicht unterstreichen 
1- unterstreichen 
b: Hervorhebung 2 0- keine Breitschrift 
1 Breitschrift 
©: Schriftart 0- __ Schnellschrift 
1-  _ Schmalschrift 
2- _ Fettdruck 
3- __ NearLetter Quality 
d: Schriftvarianten: 0- normal 
1- _ Doppeldruck 
2- _ Hochgestellt 
3- _Tiefgestellt 
e: Zeilenabstand 1- 0,5 Zeilen (Hi Zoll) 
2- 1 Zeile (!kZoll) 
3- 1,5 Zeilen (%, Zoll) 
6- _3Zeilen (% Zoll) 


Tabelle 2. Standardeinstellung für fehlende Parameter: »0« 
beziehungsweise !%-Zoll-Zeilenabstand. In der Schriftart 
»NLQ« werden die Schriftvarianten nicht ausgewertet. 


Versen hriftarten auf dem NLO4Bı 


Listing 1. Das 8080-Assembler-Listing 


aruenı HAuszugehendes Zeichen 
= PRINT#9,p%; 12832] 
READ ds: WEND CBACAI 
5 LEIBCI 
CLOSEOUT:PRINT"Alles O.K. "END 137921 
5 LESCOI 
inoch ein Zeichen - tecc21 
"Hauptprogramm 144921 
DATA C3,77,81,56,65,72,73,63, LFBBEI 
ie DATA 68,69,65,64,65,6E,65,20, L@DEs] 
werorı nor n n DATA 53,63,68,72,69,66,74,61, LEB9BCI 
: DATA 72,74,65,6E,20,61,75,66, TE6E6] 
DATA 20,64,65,6D,28,27,4E,4C, EDIFEI 
DATA 51,34,30,31,27,8D,2A,28 C@4ACI 
DATA 63,29,20,32,36,21 152B41 
DATA L69C@1 
DATA „65, D,75, 13A341 
DATA EC3D21 
DATA 72,81 341,73 CFaCCI 
DATA A 1 EF1961 
DATA CaaBA] 
N DATA 142041 
Inp Deat 1Programs Sit Btandirtwinstellung DATA [22E@] 
Jesssse Hiltsterte sungeen DATA Lacsc] 
Meipe 1 anlin DATA [SBE@I 
mit a Eumit DATA 1[85C2)J 
3 a Bios DATA CB312] 
Hessens Progranmunde DATA EBBFAJ 
Yinles Im nal DATA [07963 
DATA EDB2@1 
DATA EF9621 
F DATA BE, L@F221 
ee, . 2,13, DATA DA,E6,01,B8 C1BSEl 
ihren 20, “ ze DATA 21,07,05,16,00,5E,23,19, 221 L1D9@J 
ee Ferenc) DATA 3D,C2,CD,81,46,23,BE,05, 585 157281 
Kerstreichen‘ 13, DATA 5E,23,E5,C5,CD,85,00,C1, 958 L8BSAl 
DATA Ei, a5, 1C2,D8,81,C9,E1,11, ums [SSR 
DATA @F,@2,0E,09,CD,05,00,21, 28: ED2F4J 
DATA 20,77,23,77,23, C8@D6] 
DATA zu = LAAEA] 
DATA [S6DEI 
Ineistvertänten, = 3 DATA [27641 
neh A DATA 20,46,61,6C,73,63,68,65, EDSD6J 
DATA 72,20,50,61,72,61,6D,65, LIECD] 
DATA 74,65,72,20,21,20,18,0D, EFSB@J 
DATA @4,0D,0A,18,20,53,63,68, [DEECI 
DATA 72,69,66,74,61,72,74,65, [71601 
v DATA 6E,77,61,68,6C,28,61,75, £C510] 
RARTRE RR RER DATA 66,20,64,65,60,20,27,4E, T2AE6] 
erg Eu nie « DATA 4C,51,34,30,31,27,20,18 L1ABCIH 
In der Genrittart 'IL0'' werden die Sehriftwarianten DATA 0D,@A,41,75,66,72,75,66, LIBEB] 
DATA 3A,20,31,29,20,27,4C,45, LS@cC) 
DATA 54,54,45,52,20,3F,27,20, L34BC] 
DATA 20,20,20,20,20,34,20,48, CF1721 
DATA 65,8C,70,74,65 : [90823 
Iunterstreie DATA ®I 20,20,20 L3E82) 
ER el DATA 2727,20 LeBanı 
N DATA 54,54,45,52,20 x L&BAAI 

2 

HM 

7 

2D, 


Zeichen an Drucker 


SHELI 


Be 


1-7} 
R 
er 


18enne ’ 
HSchen DATA 64,20,60,27 L47F23 
Trerterucr DATA 61,34,20,48,65, EBAE&] 
Non, haanıen san keine Variante DATA 72,68,65,62,75, tıSE6] 
En ibn)5an i u DATA 31,09,30,20,2D,3E,20, ED7EBI 
Fhocngun; DATA a ee ee, [1508] 
DATA 65,72,73,74,72,65,69, ECADEI 
DATA 68,65,6E,2D,0A,29,09,09, [15143 
DATA 31,20,2D,3E,20,75,6E,74, LA7FEI 
B DATA 65,72,73,74,72,65,69,63, [4964] 
a,1on ana £ DATA 68,65,6E,@D,84,62,34,20, ESBIEI 
Ibbasibil DATA 48,65,72,76,6F,72,68,65, ECIFCI 
DATA 62,75,6E,67,20,32,09,38, LIOCAI 
DATA 28,2D,3E,20,6B,65,69,6E, C842C3 
DATA 65,20,42,72,65,69,74,73, LZEBAI 
DATA 63,68,72,69,66,74,0D,0A, 171021 
DATA 09,09,09,31,2@,2D,3E,2@, £33CC] 
42,7: 5,69,74,73,63,68, [4808] 
een LIFCCI PET EN BE 
‘* (C) HELMUT TISCHER * [2224] 81,72,74.09.09,30,28.2D) LOBBEI 
* ASTERNWEG 48, 8052 MOOSBURS * L[7D361 '3E,28,53,63,68,66,65,60, 108761 
een LEIDZ] &C}73)63,68,72,69)66,74 LABacı 
“Basic-Lader fuer die Datei 'LETTER.C @D,0A,09,89,89,31,20,2D, [C42EJ 
om Ba 3E120,55165,68,6D,61,60, LEC#81 
H “ ,63,68,72,69,66,74,0D CE15@1 
OPENOUT"LETTER. COM LCBA4I 0A,09,09,07,32,20,2D,3E, [SF36] 
R LBaSEI 20,46,65,74,74,64,72,75, c80201 
1. Programmreil: mit Pruefsumne LoA1Al 22) 6B!0D.0A!09109)09. 53. [50461 
FÜR zeile-1@81@ TO 11298 STEP 18 1777A3 20.20. 3E,20.4£.65.61,72} [saR1 
prunt=e EBBEZI 20,4C,65,74,74,65,72,20, [8934] 
FOR i=@ TO 7 128541 197601 
READ d$:d=VAL("&"+d$) £7D48] [84181 
PRINT#9 ,CHR$ (d) ;:pruef=pruef+d CAFQAI [E7301 
NEXT LCDEAI LAsscı 
READ p [16061 4 L999E1 
IF pruef<>p THEN PRINT"Pruefsummenfe 
hler in Zeile"zeile:CLOSEOUTzEND 103441 alas Br 
NEXT LS1FBJ ED28A1 
2 (85023 [48281 
‘2. Programmteil: ohne Pruefsumme [4432] 1C9581 
READ d$:WHILE d$<>"Ende" CaB183 [42761 
IF LEFT$(d$,1)="!" THEN p$=RIGHTS (d$ LES1AI 
„1) ELSE p$=CHR$ (VAL ("&"+dS)) L3AFEI Lırsa] 


Listing 2. Der Basic-Lader für »LETTER.COM« 


Sa255358 


124® DATA 65,69,6C,65,6E,61,62,73, 835 LF566] 
1258 DATA 74,61,66,68, 89,31,20,2D, 558 LBD4@] 
E, 15A)65, 464 [5248] 
EBLSCLESLEENZBN2BIS1.2F, 392 175781 

1280 DATA 31,32,20,22,29,@D,@4,89, 238 [37141 
1298 DATA @9,09,32,20,2D,3E,2@,31, 288 L[492A] 
1320 DATA 20,20,20,54,65,69,6C ‚5, 801 tasie) 
20,20,28,31,2F,36,2@ L6AES] 

[83261 

’ 1A4221 

1330 DATA 3A,23.692C,25.2E,20,28, 887 122881 
1358 DATA 31,2F,34,20,20,22,29,0D, 388 LEDBBI 
1360 DATA 8A,09,89,09,2E,2E,2E,0D, 188 LAF941 
1378 DATA 0A,89,09,09,36,28,2D,3E, [963E) 
1380 DATA 20,33,20,20,2 3 
1390 DATA 6C,65,6E,20,28 [B264] 
1400 DATA 20,20,22,29,0D, 84.55.78, 361 c11083 
1410 DATA 61,6E,64,61,72,74,65,69, 848 LFFSA] 
1420 DATA 6E,73,74,65, AeıkeıTBNEE, B68  taEBaı 
1430 DATA 67,20,66,7D,72,20,66,65, 711 [4826] 
1440 DATA 68,6C,65,6E,64,65,20,50, 736 [96581 
1450 DATA 61,72,61,6D,61,74,65,72, 845 [2938] 
1460 DATA 3A,28,27,30,27,20,62,7A, 468 LAC28] 
1470 DATA 77,2E,20,31,2F,36,28,22, 413 [99201 
1488 DATA 20,54,65,69,6C,65,6E,61, 744 L[AB7CI 
1490 DATA 62, 71 74»E116E164,00,00, 659  L[BC74] 
1500 DATA 49,6£E,21 „645 [04221 
1510 DATA 63,68,72,69,66,74,61,72, 851 [B&2AJ 
1520 DATA 74,28,27,4E,4C,51,27,20, 493 128321 


1530 DATA 77,65,72,64,65)6E,20,64, 777 


1540 DATA 69,65,20,53, “5 68,72,69, 745  L[@42A] 
1550 DATA 66,74,76,61,72,69,61,6E, 859 L[95601 
1568 DATA 74,65,6E,20, zz; 169)63,68, 777 L[287E) 


157® DATA 74,28,61,75,73,67,65,77, 898 LEEIEI 
158@ DATA 65,72,74,65,74,2E,24,00, 638 [73261 
1598 ° EBE2CI 
180@ ‘Hier beginnen die Druckerstrings [5398] 
1618 “Unterstreichen aus/ein EFDECI 
162@ DATA @3,1B,2D,00 C1BAG] 
1638 DATA @3,1B,2D,01 LFIAAI 
1648 "Gro“schrift aus/ein [2CFEI 
1658 DATA 83,1B,57,08 [6698] 
1668 DATA 83,1B,57,01 [829C3 
1678 "Schnell /Schmal /Fett/Schoen [54603 
168@ DATA 86,12,1B,46,1B,78,00 CDD32J 
1690 DATA 06,@F,1B,46,1B,78,0@ tecsAl 
170® DATA 85,1B,45, 18,78, [2] 902 

1718 DATA 83, 1B,78,01 1329A] 
1720 "normal /Doppeldruck/Hoch/Tief [B75C9 
1730 DATA @4,1B,48,1B,54 LEBEBI 
1728 DATA 84,1B,47,1B,54 [30E8] 
1758 DATA 83,1B,53,08 [F392] 
1768 DATA 03,1B,53,@1 10796] 
177® "Zeilenhoehe: Standarteinstellung LES96] 
1780 DATA DS, 1B,A1,0C, 18,32 CSAICI 
1790 "Zeilenhoehen’1/2, 1,1 1/2, »..,3  LDAD2I 
1888 DATA 03.18.87 84, 10,32 C74F4] 
1810 DATA 05,1B,41,0C,1B,32 £7D181 
182@ DATA @5,1B,41,12,1B,32 LABF2J 
1830 DATA @5,1B,41,18,1B,32 [B2081 
184@ DATA 05,1B,41,1E,1B,32 LEs1CI 
1850 DATA 85,1B,41,24,1B,32 EBCFEI 
1868 DATA Ende C6BaAJ 
Listing 2. Der Basic-Lader für »LETTER.COM« (Schluß) 


Verschiedene 
Tastaturen 
unter CPIM 


Was man in Basic einfach 
mit den Befehlen »KEY 

{| DEF« erreicht, ist unter 
CPIM manchmal ein schwie- 
riges Unterfangen. Die Tastatur läßt 
sich zum Beispiel nur mit ein paar 
Tricks umdefinieren. 


Normalerweise kann man unter CP/M die Tastenbelegung 
nur ändern, wenn man das Programm »SETUP« auf der 
'Schneider-Systemdiskette, beziehungsweise »Install« auf der 
Systemdiskette von Vortex, aufruft. Oder man benutzt eine 
schon vorbereitete Diskette mit der gewünschten Tastenbele- 
gung. Angenehmer ist es, wenn man eine beliebige Tastatur 
»mit Tastendruck« aufrufen kann. Also beispielsweise einfach 
»WSTASTEN« eingeben und schon steht eine für »Wordstar« 
besonders geeignete Belegung zur Verfügung. Das ist vor al- 
lem dann wichtig, wenn man verschiedene Programme besitzt, 
die unterschiedliche Codes zur Cursorsteuerung benutzen. 
Je nach Anwendungszweck passende Funktionstasten soll- 
ten sich leicht aufrufen lassen. Mit der hier vorgestellten Routi- 
ne geht das. 

Alle »..TASTEN. COM«-Programme haben einen gemeinsa- 
men Kernteil und einen individuellen Anhang, der die spezielle 
Tastenbelegung enthält. Beim Aufruf durch den Namen setzt 
der Kernteil zunächst die Tastatur in den Ausgangszustand zu- 
rück und belegt sie dann mit den im Anhang angegebenen Co- 
des. Dabei kann die Nummer der Funktionstaste als auch der 
String, der auf diese gelegt werden soll, frei gewählt werden. 

Zum Schluß wird noch eine vom Benutzer bestimmte Mel- 
dung ausgegeben, die beispielsweise den Namen der Tasten- 


belegung oder eine Farb-/Modeeinstellung des Bildschirms 
enthalten kann. 

Für alle, die Ihre Programme nur in Basic eingeben wollen, ist 
Listing 2 gedacht. Tippen Sie es zunächst bis zur Zeile 10400 
ein. Das wird später der Kernteil des COM-Programmes. Am 
besten speichern Sie die Zeilen dann, um später die Grund- 
funktionen immer wieder zur Verfügung zu haben. 

Inden Zeilen 100 und 120 können Sie den Namen eintragen, 
den später Ihre Tastenbelegung haben soll. Achten Sie aber 
darauf, daß der Namensteil nach dem Punkt unbedingt »COM« 
heißen muß. Da unser Beispiel das Programm »Wordstar« ver- 
bessern soll, heißt die Routine aus Listing 2 »WSTASTEN«. 

In der Zeile 10410 beginnen die Definitionen der maximal 32 
Funktionenstrings mit Nummern zwischen O und 31. Sinnvol- 
lerweise schreibt man in eine Zeile genau einen Funktions- 
string, so daß an erster Stelle immer die Nummer des Strings 
steht. An zweiter Stelle steht dann die Länge und an den fol- 
genden Stellen die Zeichen, die den String bilden. 

Dabei haben Sie die Wahl zwischen zwei verschiedenen 
Wegen: 

— Wenn es sich um ein Zeichen mit ASClIl-Code handelt (bei- 
spielsweise »A«), dann schreiben Sie ein Ausrufezeichen, ge- 
folgt von dem jeweiligen Zeichen. Diese Methode kann jedoch 
nicht bei Symbolen benutzt werden, die im Basic eine beson- 
dere Bedeutung haben. Diese müssen mit Hilfe des zweiten 
Weges eingegeben werden. 

— Wenn es sich um ein Zeichen handelt, das nicht darstellbar 
ist (zum Beispiel Wagenrücklauf), dann müssen Sie es hexa- 
dezimal eingeben. Soll im String also ein Anführungszeichen 
vorkommen, so muß es mit Code 22 eingegeben werden (oh- 
ne vorausgehendes »&«). 

Die Strings dürfen dabei übrigens auch durcheinander im 
Programm stehen und — auch wichtig — es müssen nicht alle 
Strings definiert werden. Das Ende der Tabelle wird mit einem 
Byte FF hex gekennzeichnet. 

Unmittelbar nach der Stringtabelle (in unserem Beispiel ab 
Zeile 10 760) folgt die Belegung der Tastatur. Der Aufbau einer 
Zeile der Tabelle ist mit Ausnahme des Repeat-Flags (Wieder- 
holungsfunktion) analog zu einem »KEY DEF«-Befehl. In jeder 
Zeile steht zunächst die Tastennummer, danach der Code der 
Taste im Normalmodus. Danach der Code der Taste, wenn Sie 
zusammen mit Shift gedrückt ist und zum Schluß der Code der 
Taste im Ctrl-Modus. Die Codes 80 bis 9Fhex repräsentieren 
jeweils einen Funktionsstring mit einer Nummer zwischen 00 
und 1Fhex. Sie können also die 32 oben definierten Funktio- 


zu 
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nenstrings nicht nur auf den Zahlenblock der Tastatur legen, 
sondern auf wählbare Tasten. 

Die Eingabe der Codes erfolgt genau wie bei den Funktio- 
nenstrings entweder als Hexzahl oder als » ! «-Zeichen-Kom- 
bination. Die Länge der Tabelle ist hier ebenfalls beliebig und 
wird durch ein Byte mit dem Wert FF hex gekennzeichnet. 

Als letztes folgt die Meldung, die beim Aufrufen der Routine 
ausgegeben werden soll. Der Meldetext muß hier allerdings 
durch ein Zeichen »$« mit dem Code 24 hex beendet werden. 
Sinnvoll ist, in diesem Text auch gleich die Definition der Bild- 
schirmfarben und des Bildschirmmode einzufügen. 

Das Ende des Datenbereichs ist im Programm durch den 
Text »Ende« gekennzeichnet. 

Geben Sie jetzt das Programm vollständig ein und starten 
‚Sie es. Wenn sich ein Fehler im Programm befindet, wird Ihnen 
die Nummer der fehlerhaften Zeile mitgeteilt. Wenn das Pro- 
‚gramm korrekt ist (also die Prüfsumme auch stimmt), dann er- 
scheint die Meldung »Alles o.k.«. Auf Ihrer Diskette befindet 
sich nun eine neue Datei mit dem Namen, der in der Zeile 120 
hinter »OPENOUT« angegeben ist. Das Basic-Programm brau- 
chen Sie jetzt nicht mehr — außer Sie möchten die Tastenbele- 
gung noch einmal ändern. 

‚Schalten Sie nun in den CP/M-Modus um undttippen Sie den 
Namen der neuen Datei (ohne »COMe«). Sofort steht die neue 
Tastenbelegung zur Verfügung. Wenn Sie im Basic-Programm 
den Namen in Zeile 120 ändern, können Sie auf derselben Dis- 
kette mehrere Tastaturbelegungen mit verschiedenen Namen 
ablegen. 

Falls das Programm nicht funktioniert, dann befindet sich ein 
vom Prüfsummenzähler nicht entdeckter Fehler im Basic- 
Programm. Das kann beispielsweise eine vollständig verges- 
sene DATA-Zeile sein. Dann hilft nur genaues Überprüfen der 
einzelnen Zeilen. 

Listing 1 enthält den Kernteil aller Tastenbelegungen in 
8080-Assemblercode. Dieses können Sie analog zu deroben 
angegebenen Beschreibung mit Ihrer persönlichen Tastenbe- 
legung ergänzen und mit Hilfe des CP/M-Assemblers »ASM« 
und dem »LOAD«-Programm übersetzen. Der Aufruf des ent- 
standenen COM-Programms belegt dann die Tastatur ent- 
sprechend Ihren Wünschen. 

Das abgedruckte Beispiel-Programm enthält die Funktions- 
tastenbelegung für ein »Wordstar«-Programm. Diese Tasten- 
belegung wurde so ausgewählt, daß wirklich jede einzelne 
freie Taste sinnvoll belegt ist. Erst jetzt ist das Arbeiten mit 
»Wordstar« optimal möglich. In Tabelle 1 finden Sie die Tasten- 
belegung dieses Beispiels. 

Natürlich können Sie eigene Änderungen einbauen — bei- 
spielsweise bei den Sonderzeichen, die wegen der deutschen 
Umlaute umpositioniert werden mußten. Beachten Sie aber, 
daß bei einer Standard-Tastatur die Lage der Control-Codes 
durch die übrigen Tasten vorgegeben ist. Wenn Sie sich nicht 
daran halten, kommen Sie bei komplexen Programmen leicht 
in Schwierigkeiten. 

Alle Tasten, die mit Codes zwischen 40 und 55 hex belegt 
sind, müssen in der Ctr-Ebene mit dem um 40 hex verminder- 
ten Code belegt sein. Die Taste »A« (mit dem Code 41 hex) lie- 
fert also in der Ctrl-Ebene den Wert 41 — 40 = 01 hex. Wenn 
Sie die »Y«- und die »Z«-Taste vertauschen oder die Umlaute auf 
der Tastatur positionieren wollen, müssen Sie das beachten. 
Eine unbelegte Taste müssen Sie mit FF hex kennzeichnen 


und nicht mit 00 hex. (Helmut Tischer) 
ESC: Hilfe (19) CLR: nach rechts bis Ende 
‚Befehl abbrechen (1U) löschen (1QY) 
Escape (11) fechtes Wort iöschen (! 
rechts Zeichen iöschen (1G) 
TAB: Tabulator löschen (TON) DEL: links bis Antang löschen 
Tabulator setzen ((101) (ODEL) 
N ‚ganze Zeile löschen (1Y) 
Iinkes Zeichen L 


ars 
LOCK: Randiöser (10X) ENTER: Einfügemodus ein/aus (IV) 
Großbuchstaben Leerzeile einfügen (IN) 
Großbuchstaben feststellen ‚Absatz (CR) 
SPACE: ‚Suchen wiederholen (HL CUR UP: Zum Textanfang (1OR) 
allgemein wiederholen (1QQ) ‚Seite zurück (1A) 
Leertaste Zeile nach oben (TE) 
CURLEFT: zum linken Rand (105) COPY: Hilfe (1) 
Wort nach links (1A) ‚Absatz formatieren (1B) 
Zeichen links (15) ‚Cursor Home (1QS1QE) 
CUR Zum Textende (10C) CUR RIG: Zum rechten Rand (1QD) 
DOWN: vorblättern (1C) Wort rechts (IF) 
Zeile runter (1%) Zeichen rechts (1D) 
Ft abwärts rollen (12) Fr: Block speichern (1KW) 
Blocksatz einaus (104) Blockanfang merken (KB) 
Fa: Directory einiaus (1KF) FB: Block/Datel einfügen (IKR) 
Absatz einrücken (10G) Blockende merken (!KK) 
ra aufwärts ron (IW) ro Block öschen (IKY) 
Zeile zentrieren (10C) ‚Block invertieren (1KH) 
Fa Text sicher (1KS) Fo: Rand links zum Cur. (1OLII) 
Laufwerk wechseln (1KL) Linken Rand stellen (1OL) 
FS: Text beanden (1KD) L Cursor an letzte Dan Ar 
‚Datei umbenennen (IKE) Rechten Rand stellen (1 
F6: {IM!KRBRIEFVOR!M) FENTER: Merker setzen (IK) + Bi 
Datei löschen (!KJ) ‚Merker suchen (1Q) + Ziffer 
‚neue Zeile, ohne Absatz 
1.20 Ta + om vasıx) 


2. Zeie: Taste + St 
3. Zei, Taste aber 


Hinweis zur Taste F6: Nach Eingabe des Dateinamens beim Start von WS statt 
Enter die Taste Otr+F6= > alle wichtigen Voreinstellungen für Brief. 

Hinweis zur Taste Fenter: Unmittelbar nach Merker setzen/löschen muß eine Zahl 
eingegeben werden, um Merker genauer zu bestimmen. 

Die mit F gekennzeichneten Zahlen beziehen sich auf den Ziffernblock. 


Tabelle 1. Die Tastaturbelegung 


Tastenbeleoung fü 
unter CF/M 2.2 
ie) 11.09.1985 


jneiger CPC464 frei wählen 


bv Helmut Tischer 


stkton =au 


aıeon 
100@n 
seven 


Zwei unbelegte Speicherzellen 
Lokaler Stapel im zentralen RAM 


: Lokalen Stanel 
entry: Im h.a 
dad so 
shid oldsp sretten 
Int so.stktopineuer Stapel (im zentralen RAM!) 
call  @®bb@Oh ıkKevboard initialisieren 


änitialisieren 
talten Stapel holen 


. Expansionsstrinas 
h,euoan s; 


a 125%=Ende der Tabelle 
cm tLänge eines Satzes 

h 3 (Stacktoo) auf Stringanfang 
b.0 

& 


thl zeiat auf Stringende 
täntzt hl auf, Btränganfane 
Nummer. c=Länge 


EN SET ERPAND 


anborn 
h Adresse nächnter Satz 


fi Tastenbelegungen setzen 


nomsı mov am Nummer der Taute 
Inn " 
im ® 
sa noke S=Ende der Tabelle 
der = 
mov bum 1Code Translate 
in h 
sus oem 4a ebthaelt Tastennummer 
call @bb27h ıKM SET TRANSLATE 
son 
Do om 
Mo bem  HCode Shift 
im on 
Bush Dem 1a enthaelt Tastennunmer 
Bush 
eall  @bbzdh km SET SHIFT 
Do .n 
Bon oem 
mv Bm  1Code CTAL 
im 6 
Susn N 
Call  GbbSM sKm SET EIRL 
son 
Im noenn snaschste Taste 

Listing 1. Das 8080-Assembler-Listing 


. 
1 


* Proarammende. Rücksprung in COP 
mokevı sche shi enthaelt Adresse dan Meldetextes 
avı ER) +Textausgabe 
cal 5 
Ihld oldso +Stavel restaurieren 
sohl 
ret 
2 
tEnDansionsstrinass 
1 (jeweils <Nummar > .<Laenoe>.<Bvte; 
enDanı di 9.12. String Nr. 
' ; (die Tabelle kann beliebig lang nein) 
ab letzter Strina 
db tkKennzeichen Ende 
KTastenbeleauna 
1 lieweils “Nummer >.<Translate>.<Bnift>.<ctri 
ab 2.26 
' 
' 2 (sie Tabelle kann beliebig lang wein) 
‘ R 
6 Yaıyt28 
db 2 Endemarkierung 
D 
Meldetext. wird bei Aufruf ausawgeben 
atrınaı db Ich bin das Programm 


db * 
end 


Listing 1. Das 8080-Assembler-Listing (Schluß) 


HEndenarkierung 


PR a Een ee a L1D18] 
2 '* (c) Helmut Tischer * CB184] 
3 ‘* Asternstr. 40. 8052 Moosburg * LDFIEI 
ee EBFIEI 
100 ‘Basic-Lader fuer die Datei 'WSTASTE 
LFCDCI 
£ EDDB21 
120 OPENOUT"WSTASTEN. COM" LBD4E] 
150 ° LDFB6J 
148 ‘1. Frogrammteil: mit Pruefsumme [4876] 
158 FOR zeile=1@01@ TO 10270 STEP iQ CBC7EI 
168 pruef=® LACSC] 
170 FOR i=@ TO 7 LESE] 
188 READ d$:d=VAL ("&"+d$) L7452] 
198 FRINT#9,CHR$ (d) ::pruef=pruef+d C4D141 
20@ NEXT EDBE2] 
21@ READ p CZ1BE] 
22® IF pruef<>p THEN PRINT"Pruefsummenfe 
hler in Zeile"zeile:CLOSEDUT:END LC63C1 
230 NEXT L78£8] 
za0 " LE@BA] 
250 '2. Programmteil: ohne FPruefsumme L993C1 
26@ READ d$:WHILE d$<>"Ende" [3A221 
270 IF LEFT$(d$,1)="!" THEN p$=RIGHTF(d$ 
„1) ELSE p$=CHR$ (VAL ("R"+dE)) [54081 
280 PRINT#9,n$: C183C] 
27® READ d$:WEND CDACEI 
EI LE2B4] 
F1@ CLOSEOUT:PRINT"Alles 0.K. [3684] 
320 ' CE@BB] 
338 EDFBA] 
100908 "Hauptprogramm LaB3E] 
10010 DATA C3,86,01.00,08,08,08,54, 438 L[SC62] 
190020 DATA 61,73,74,65,6E,62,65,6C, 846 L[&BBAI 
10058 DATA 65.67,75.6E,67,20,66,7D, 773 LB4CCI 
1004® DATA 72,20,53,63,68,6E,65,69, 748 TEAAZ]I 
18250 DATA 64.65.72,20,43,50,435,34, 613 [6348] 
10060 DATA 36,34,20,65,69,66,73,74, 685 LASADI 
18070 DATA 65.60,60,65,6E,0D,@A,@D, 564 LDDIAI 
10088 DATA BA,43,6F,70,79,72,69,67, 745 LEAC2] 
10890 DATA 68.74,20,28,63,29,20,51, 513 [1758] 
10180 DATA 31,2E,30,39,2E,31,37,38, 408 [8588] 
18110 DATA 35,0D0,0A,48,65,6C,60,75, 583 L@OSEB] 
10120 DATA 74,20,54,69,73,63,68,65, 756 [A282] 
10130 DATA 648 LO59A] 
10148 DATA 6E,73,74,72,61,7E,65,20, Bil LESA6I 
10150 DATA 34.30,2C,20,44,2D,38,30, 395 L[837A1 
10160 DATA 35,32,20,AD,6F,6F,73,62, 647 LFBCB] 
18170 DATA 75.72,67,@0D,@A,1A,21,00, 416 [21941 
10188 DATA 00,39,22,00,10,51,00,50, 236 L[SB12] 
18190 DATA CD,.@@,EB,21,DA,@1,7E,25, 805 LFEBEI 
18200 DATA SC,CA,AC,@1,3D,4E,25,E5, 858 [8650] 
18210 DATA 06.00,09,E3,47,CD,@F,BB, 728 LD9F4] 
10220 DATA E1,C3,96,01,7E,23,3C,CA, 994 LE318] 
190230 DATA CF,@1,3D,46,23,F5,E5,CD,1053 LFA4A] 
190240 DATA 27,BB,E1,F1,46,23,F5,E5,1271 [9034] 
1025@ DATA CD.2D,BB,E1,F1,46,25,E5,1237 [SA6CI 
10268 DATA CD,33,BB,E1,C3,AC,@1,EB,1271 L[938E] 
18270 DATA BE.09,CD.05,00,24,00,10, 291 L359CJ 
10288 DATA F9,C9 ESCFB] 
10290 ° [37861 
10300 [1276] 
1031@ "Tabellenbereich des Programms: [9946] 
10320 ‘darf vom Anwender angepa“t werden 
tohne Pruefsumme) L2F4EI 
198330 "Entweder - Hexzahlen 14720] 
10348 ° oder - "!", gefolgt von Ascii 
-zeichen t8F1@] 


Listing 2. Der Basic-Lader für eine neue CP/M-Tastatur 


3E 
in diesem Fall Hexzahlen verwen 
den! 


jgäses Strings auf den Funktionsta 
sten 
"jeweils Nummer, L{nge und Zeichen 


DATA 02.02, vars ix 
DATA 03,02,11, 

DATA Dala2ı Tr 
DATA 05,02,11,!R 
DATA 06,02,11,!5 
DATA @7,02,11,!C 


DATA @a.@2.11,! 
DATA 99,04,11, 
DATA aaLaD'on.an} 
2!.,!V,10,1R,0D " 
DATA 08.02.08, 
DATA AC,@3,@F, 
DATA aD.02.08,'K 
DATA aE,02, ae.! 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


R,'I,!E 


16,02,0F, 
17,02,0F,' 
DATA 18,82,11. 
DATA 19,02.0F, ie 
DATA 1A,02,0F, 
DATA inlazlarııı 
DATA 1C,02,0B, 
DATA 1D,822.0B, 
DATA 1E,02,0B,'F 


DATA 1F,82,0B,!L 

"Code f}r Tabellenende 
DATA FF 

'##%*#* Tastenbelegung 
‘Lage der Funktionstasten 
DATA 42.1B.15,0A 

DATA 

DATA 

DATA 

DATA 

DATA 


DATA @2.18,85.87 
DATA 01,04,06,88 
DATA 12,0D,QE,1& 
DATA 2F,20,98,0C 
DATA 89.89.02.0A 
DATA OA, !7,95.94 


DATA BB. 18.80.93 
DATA ‚Br.BE 
DATA 14,14, 9F,9D 
DATA 5,92,9C 
DATA 6.88,8A 
DATA 1.97,1A 
DATA 2.976,98 
DATA 3,99,17 
DATA @.9B,8C 
DATA IA,70 
DATA 11,08 
DATA 46,FD,FD.82 


“Deutsche Umlaute 

DATA 1A,!3,'1,1D 

DATA 1C 

DATA 1D,7C, 

DATA 2B 

DATA 47 

DATA 19 ’ 

"Sonderzeichen im Zentralblock 
DATA 11,!%#,!:,FF 

DATA 13, '+,3A,FF 

DATA 16 FF 

DATA 18,'=,'@,00 

DATA 41.12,22,FF 

"Code Tabellenende 

DATA FF 

"#0#* Meldetext: 

‘Farbwahl+ "WORDSTAR '-Tastenbelegu 


ng aktiv" 

DATA 1C,900,91,01,10,01.10.18 
DATA 1D.01 Taa} Wi to, 'r 
DATA !d 
DATA IT 
DATA 1 
DATA ! 
“Abschlu”zeichen 
DATA 24 


“Programmende 
DATA Ende 


[@618] 


L45C83 
[35841 
L[3A86] 


tE186] 


CBEF4] 
[S56F6] 
L9BF@] 
[81121 
CCAF@1 
LB1FA] 
CC6EA] 
CB7F@] 
CC2D4] 
[C3DA] 
EFDZEI 


18142] 
L4ABEI 
L2ASEI 
[5A183 
15538] 
C2A1A] 
CABEZI 
CC818] 
C97F4] 
CBEB@I 
C79@E] 
LFBEB] 
E72FEI 
CC6@81 
EIFF2I 
15602] 
[28321 
183241 
CB216] 
[76261 
£751@1 
112281 
[DE2A1 
[24041 
[1788] 
[32DE] 
LAB14I 
EDS1C1 
LF2821 
(57DE] 
[B44A1 
[35DC1 
C&DEA] 
[CSF@] 
L&2EE] 
[20201 
[5C38] 
CC318] 
LF288] 
CB316] 
[7022] 
CA12@1 
ED2161 
£7C14] 
[26041 
[3026] 
L38E4] 
(5@3A] 
L9BF4] 
C61E81 
L1A72] 
C41DA1 
LTACACI 
EDCA&I 
[6E6A] 
[B2A4] 
LCC8@1 
ESBACI 
188283 
LAFCCI 
C3AB4) 
LBA2A] 
C3BB8] 
LSAFAI 
[B73AJ 
[B1BE] 
[3482] 
L9AS41 


C1C661 
L9C7EI 
178741 
[5452] 
17886] 
[5964] 
L82ACI 
ESBCE] 
188761 
[3D861 
L4B4A] 
L6D96] 


Anwendungs-Listing 


Immer auf 
dem neuesten 
Stand 


Samstag abend, 18 Uhr 30. 
Jetzt kommt die Tabelle 
der Fußball-Bundesliga in 
der Sportschau. »Alte Ka- 
melle,« können Sie sagen, wenn Sie 
»Ligaverwaltung« benutzen. 


Interessieren Sie sich auch für einen Sportverein, dessen 
Ergebnisse nie in der Zeitung stehen? Dann kennen Sie die 
Probleme, den aktuellen Tabellenstand des nächsten Gegners 
zu erfahren. Hier — aber auch bei Vereinen, die regelmäßig in 
den Medien auftauchen — hilft »Ligaverwaltung«. Der Weg »zu 
Fuß« (Kopfrechnen) wird vom Computer übernommen. Sie ge- 
ben nur noch die neuesten Ergebnisse ein und Ihr Schneider 
‚sagt Ihnen, wo Ihr Favorit gerade steht. 

Und das für jeden Verein in jeder Sportart (die in einer Liga, 
bei der es um Tore und Punkte geht, gespielt wird). Das Pro- 
gramm »Ligaverwaltung« ist menügesteuert und damit sehr 
leicht zu bedienen. Das Hauptaugenmerk wurde auf Komfort, 
Übersicht und Benutzerfreundlichkeit gelegt. Fünf der 15 
Punkte im Hauptmenü behandeln die Ergebnisse von drei 
selbstdefinierten Gruppen. Die Daten (Spielpaarungen, Ver- 
einsnamen und so weiter) für diese fünf werden an das Pro- 
‚gramm mit DATA-Zeilen übergeben. Die ersten neun Routinen 
dienen der allgemeinen Ligaverwaltung, so daß (theoretisch) 
jeder Verein verwaltet werden kann. Im folgenden werden die 
einzelnen Menüpunkte erklärt. 


Menü mit vielen Punkten 


1. Tabelle aufbauen 

Die Überschrift erscheint, wie bei jedem Menüpunkt, in ei- 
nem blauen Kasten. Esfolgen die Fragen nach dem Namen der 
Tabelle und der Anzahl der Mannschaften. Nach der Eingabe 
dieser Daten kehrt das Programm zum Hauptmenü zurück. 
Dieser Menüpunkt dient zum Erstellen des Grundgerüstes ei- 
ner Tabelle. Er wird nur bei der ersten Eingabe gebraucht. Spä- 
ter kann die Tabelle leicht mit Menüpunkt 3 (Aktualisieren) ge- 
ändert werden. 
2. Tabelle ansehen 

Die Tabelle wird entweder in der Reihenfolge der Eingabe, 
oder (wenn sie schon geordnet ist) mit dem Besten startend 
auf den Bildschirm gegeben. Mit der Enter-Taste kommt man 
wieder zum Menü zurück. 
3. Tabelle aktualisieren 

Dieser Punkt dient der Erweiterung der Tabelle um die neue- 
sten Spielergebnisse. Ist die Eingabe korrekt, so muß eine be- 
liebige Taste gedrückt werden. Es empfiehlt sich aber, wie am 
Bildschirm gefordert, die »]«-Taste zu benutzen. Bei falscher 
Eingabe muß »[« gedrückt werden. 
4. Tabelle speichern und 
5. Tabelle laden 

Mit diesen beiden Menüpunkten kann die Tabelle als ASCII- 
Datei gespeichert beziehungsweise geladen werden. Das Pro- 


gramm arbeitet mit dem Kassettenrecorder. Benutzen Sie die 
Diskettenstation, so müssen Sie einen Namen mit übergebe 
(bei OPENIN und so weiter). 

6. Tabelle löschen 

Man kann zwischen »ganze Tabelle löschen« und »bestimt 
te Mannschaften löschen« wählen. Auf diese Weise kann eine’ 
neue Tabellenrechnung vorgenommen werden. 

7. Tabelle ordnen 

Die Tabelle wird nach folgenden vier Kriterien (in gleiche 
Reihenfolge) geordnet; 

1. Pluspunkte 
2. Punktedifferenz 
3. Tordifferenz 
4. geschossene Tore 
8. Tabelle verbessern 

Es kann gewählt werden zwischen 
— neue Mannschaft einfügen 
— einen Fehler verbessern 

Die Daten werden wie bei »Tabelle aufbauen« für die neue 
Mannschaft — beziehungsweise fehlerhaft eingegebene 
angegeben. So können Sie Fehler korrigieren. 

9. Tabelle ausdrucken 

Analog Punkt 2 erfolgt die Ausgabe auf den Drucker. 
10. Ergebnisse eingeben 

Wird dieser Menüpunkt gewählt, so befindet man sich im er- 
sten Punkt, bei dem es um die Verwaltung von Ergebnisse 
geht. Zuerst hat man die Wahl, welche der drei angegebenen‘ 
Gruppen man bearbeiten will. Wer jetzt denkt, daß dieser Me- 
nüpunkt eigentlich dasselbe ist wie Punkt 3, hatssich geirrt. Die 
Spielpaarungen dieser drei Gruppen sind nämlich im Pro- 
gramm ab Zeile 10000 fest vergeben. So muß der Anwender 
nur noch Gruppe und Spieltag eingeben und die Begegnun- 
gen des gewählten Spieltages erscheinen. Die Ergebnisse 
können nun sehr schnell und sicher eingegeben werden. Die 
Resultate sind, im Gegensatz zu Menüpunkt 3, fest durch Va- 
riablen im Speicher abgelegt. 

Natürlich kann jeder die zur Demonstration dienenden drei 
Gruppen (Handball, Fußball, B-Jugend) ändern zugunsten 
von Mannschaften, auf deren Ergebnisse und Tabelle er be- 
sonders oft und schnell zurückgreifen möchte. Wie das am) 
schnellsten geht, zeigt das »>Schema zur Änderung der Grup- 
pen«. 

Nach der Eingabe erscheint die Frage, ob die Ergebnisse 
auf die Tabelle übertragen werden sollen. Will man dies, so 
werden die neuen Ergebnisse entweder zu einer schon defi- 
nierten Tabelle dazugezählt — oder wenn noch keine Tabelle 
im Speicher ist— wird aus den Ergebnissen eine neue Tabelle 
berechnet. Für die drei Gruppen müssen jetzt nur noch die Er- 
gebnisse abgespeichert werden, da sich die Tabelle aus den. 
Ergebnissen errechnen läßt. Sämtliche Menüpunkte stehen‘ 
für die Tabellen dieser Gruppen zur Verfügung. Will man eine 
zweite Eingabe machen, so muß nur noch der neue Spieltag 
angegeben werden. Die Gruppe wurde ja schon vorher ge= 
wählt. 

11. Ergebnisse ausgeben L 

Dieser Menüpunkt ist das Gegenstück zu »Ergebnisse ein- 
geben«. Es wird zuerst gewählt, ob die Ergebnisse eines be- 
stimmten Spieltages oder einer bestimmten Mannschaft aus- 
gegeben werden sollen. Wurde nicht schon vorher eine der 
drei möglichen Gruppen festgelegt, so kann das jetzt nachge- 
holt werden. 

Will man die Resultate einer bestimmten Mannschaft sehen, 
so muß die Mannschaft und der höchste auszugebende Spiel- 
tag aufgerufen werden. Der Computer gibt dann alle Begeg- 
nungen und Ergebnisse der gewünschten Mannschaft bis zu 
diesem Spieltag aus. 

12. Ergebnisse speichern 

Es können die Ergebnisse einer gewünschten Gruppe bis 
zu einem bestimmten Spieltag unter einem einzugebenden 


ur zu <= 


PART 
Anwendungs-Listing 
‚Namen gespeichert werden. 
13. Ergebnisse laden 128 ON ERKOR 6070 &21@ Enaysı 
Auf Kassette gespeicherte Ergebnisse können geladen 13@ INK 1,18:INK 2,26: INK 3,6: INK @,@:BO 
werden, wobei man nach dem Ladevorgangerinnertwird, wie- | jaa WınDaWkırı aa > a 
viele und von welcher Gruppe die Ergebnisse geladen wur- 152 PAPER#1,3 LAECZI 
den. Es besteht danach wie bei »Ergebnisse eingeben« die | 159 Tug"" a 
Möglichkeit, sämtliche Resultate auf die Tabelle zu übertragen. 189 MOVE 48,398 [&B88] 
14. Ergebnisse löschen 198 ERINTT ABELLENBERECHN 
e z - rn "; [B11C] 
Ergebnisse werden gelöscht, die Tabelle bleibt jedoch un- zu0 PEN 1 [21CC1 
berührt. Wenn man die Ergebnisse eineranderen Gruppe be- | 245 FeykrmästPor: THOMAS SOMMERES SpAcEID | del 
handeln will, so ist zuvor dieser Menüpunkt zu wählen. = ai gn: ARNDT JANZ":; [23081 
15. Programm beenden 24® LOCATE 1,5 EDsaaı 
Beenden des Programms ze BR INK 19,18 reyren 
1 
(Thomas Sommer) 27@ PRINT"(14 SPACEIM EN UE :" LASSCı 
280 PEN 3 L6SEB] 
230 PRINTITAB (2) }STRINGS (56,204); [BF961 
Ä sao@ 
Schema zur Änderung der Gruppen: 318 PRINT«cS SPACE}Tabelle erstellen.... m 
1. In den Zeilen 5610 bis 5630 müssen die Namen der drei nass CTRL XI -1-ICTRL X" L7FEEI 
329 PRINT"(S SPACE}Tabelle ansehen... 
Gruppen geändert werden. week xX3-2-{CTi 3 LA2D21 
2. In den Zeilen 6080 bis 6110, 6130 bis 6160 und 6180 ze Denn aktualisieren e h 
bis 6210 müssen für jede Gruppe folgende Daten geändert 348 PRINT"(5 SPACE}Tabelle abspeichern... 
werden: 35a PrihT"tS SPALE>TabeIle lad Er 
ie Variable az muß auf die Anzahl der in der Gruppe be- 202. COTRL KI-S-CCHR tet [56Da1 
teiligten Mannschaften gesetzt werden. ET AT 
2 -6-, 1BD641 
— »gruppe« muß den Namen der Gruppe enthalten. 37@ PRINT {5 SPACE) Tabei le ardnen....... 
ei 3 ie i il en X3-7-{CTRL X" taFBaı 
in der DATA-Zeile müssen die in der Gruppe beteiligten 308 PRINT=CS SPACEITEERIIE verbessern... 
Mannschaften angegeben werden. “... {CTRL XI-B-ICTRL X3" [88983 
3. In den Zeilen 10000, 20000 und 15000 müssen die | | =?@ PRihT“CS SPACE»Tabelle ausdrucken... ua) 
einzelnen Begegnungen als Code in Form von DATA-Zeilen 498 PEN 3 [29041 
angegeben werden. Der Code funktioniert folgenderma- BEREIT LIGR (SI IRTRINDECS Zur se 
Ben: Es werden für die einzelnen Mannschaften Zahlen ge- 438 PRINT"(5 SPACE)Ergebnisse eingeben.. 
setzt, wobei für die erste Mannschaft jeweils eine »1« ge- ars SPACEJErgebnisse ausgeben Era E 
setzt wird, für die zweite eine »2« und so weiter. Immer zwei ann t1-" LSF781 n 
Zahlen nebeneinander bilden eine Paarung. Gibt es eine Er ET 
ungerade Anzahl von Mannschaften — also ein spielfreies 46@ PRINT"{5 SPACE}Ergebnisse laden..... 
Team — so muß dieses an den Schluß der DATA-Zeile ge- SPACE Ente Taschen 
setzt werden. Ein Spieltag wird immer in eine DATA-Zeile 114921 
gesetzt. Der nächste Spieltag in die nächste und so weiter. 290 PRINTFTABCH); FSTRINGS (36,204) } Se 
Wer mit diesem Programm die Ergebnisse von mehr als drei m Bene ee [2DD21 
Gruppen verwalten will, kann die DATA-Zeilen separat ab- RUF Ne senden SS 
speichern und sie mit »merge« ins Programm zurückholen. 528 PEN 2 C2DD81 
530 PRINT [27:75] 
548 INPUT“Ihre Wahl bittet2 SPACE) (1-15) 
Be EBACE enten< "sausmahl tBsecı 
550 Speen LFEB2J 
.* Bundesligs #eessessnessee 568 ON uananı "eosup 588,920,1158,151@,1 
= 740, 1968 Zeem an; 3260,3440,4168,47 
Nannschatt Siele Terait. Tore 90,5119.541 C6D483 
Fr ek 578 60T0 118 LCFAEI 
12 Eee 58@ REM [36421 
12 2:5 59@ REM *** Tabelle erstellen #** E1BaA] 
= I &20 REM CABS41 
12 a ve &1@ r=1 L1D2EI 
12 Er 620 us="T ABEL L ES SPACE}erstellen" 
2 u :60SUB 5698 L&BCEI 
12 17 218 638 PRINT=PRINT cc11a] 
2 o :ı= 648 PEN 3 [6968] 
2 Fr} 658 INPUT"Wie heisst Ihre Tabelle "zna$ L[2A661 
= ee 668 PEN L2FE@] 
2 we :ı2 67@ PRINT:PRINT"Wieviele Mannschaften si 
2 uo:z nd an der Tabel-le"; T4BBCI 
= aan 688 INPUT " beteiligt (2-28) ";anz:IF an 
z<2 OR anz>28 THEN CLS:60T0 598 [749A] 5 
69@ PEN S:PRINT:PRINT"Geben sie erst Nam 2 
Schneller als die Sportschau sind Sie ee [49281 
RINT"punkte Minuspunkte ,geschossene h 
mit »Ligaverwaltung« Tore, und"; L2F723 & 
71@ PRINT"zuletzt kassierte Tore an. " [SB1AJ 
728 PRINT:PRINT LAA1A] \ 
ZEa WTNDON 8211740 ,16,28 [5932] 
EHRE 
*** Sporttabellenberechnung *#=#= PEN 2:n$=STR$ in) ın$=MID$ (n$,2) :PRINT 
iii =. n$;". Mannschaft: ":PRINT L69D21 
a zer PEN NPUT"(CTRL X}Name{7 SPACE}: CC 
***  (c) by Thomas Sommer ##* TRL X" names (n) 198141 
a a: PEN 3: INPUT" (CTRL X}Spiele(5 SPACEI: 
EDEL EEHEREHERDEEELEREEN Tee DREH 
nn Bee „pu (25) ‚mipu( XCTRL %X}"zpu(n) T1CcCc4] 
108 DIM kator (25) ‚w(25,25) ‚mas$ (25) ‚er$( 
25,25) er (25,20) —  " Listing. »Ligaverwaltung« 


Anwendungs-Listing 


8Q0 PEN 3 


PEN, 3: INPUT" {CTRL X3rinuspunktes (CTR 
3 


ipu(n) 

818 PEN 1: INPUT" (CTRL X>Tore{7 SPACEI: CC 
TRL X3"3tor (n) 

820 PEN 3: INPUT"{CTRL X3Gegentore{2 SPAC 
EI: CTRL X)";kator (n) 

838 CLS 

848 NEXT 

850 WINDOW SWAP 2,0 

86@ PEN 2:LOCATE 1,17 

87@ PRINT STRING$ (40, "-"); 

889 PRINT"{8 SPACEIDas war's schon !!!* 

898 PRINT STRING$ (4@,"-") 

900 FOR w= 1 TO 1BG@:NEXT 

910 RETURN 

929 REM 

930 REM *** Tabelle ansehen +** 

940 REM 

95@ MODE 2 

9760 PEN 1 

970 LOCATE 15,1 

IB PRINT"Rarkreuneneeeet2 SPACE)" snas; 
{2 SPACE) «rrunnnnennree" 

9970 PRINT 

1208 PRINT"Mannschaft";TAB(33); "Spiele"; 
TAB (42) 3 “Tordif 

1818 PRINT,TAB(54); "Tore"; TAB{69) ; "Punkt 
e. 

122® PRINT STRING$ (88,154) 

1252 FOR n= 1 TO anz 

1248 PRINT CHR$(24) 

105@ LOCATE 1,n+4:PRINT STRINGS(8@," ") 

1860 LOCATE 1,n+4 

187@ dif# (n)=tor (n)-kator (n) 

1080 PRINT nz". ";name$ (n) ; TAB(32) 5CHRS 
(149) 5spiele (n) ; TAB(4@) 5 CHRS(149) ;d 
if (n) ; TAB (5@) ; CHR$ (149) tor (n);TAB( 
57); ":"3kator (n) 3; TAB(65) 5CHR$ (149); 
pu(n)z;TAB(72)5":"zmipu(n) 

1878 NEXT 

110 PEN 1:PAPER_@ 

111® LOCATE 28,25:PRINT"Zum Menue-Progra 
mm geht's mit >enter<" 

112@ a$=INKEY$ 

1158 IF a$=CHR$(13) THEN RETURN 

1142 G0T0 1128 

115@ REM 

1168 REM *** Tabelle aktualisieren #** 


117@ REM 
1188 ABEL L E{S SPACE}aktualisi 
GOSUB 5690 

119@ PRINT:PRINT:PEN 3 

1208 PRINT"Ich nenne ihnen nun die einze 
Inen Mann-" 

1218 PRINT"schaften, und sie geben dazu 
ein wieviel"; 

1220 PRINT"Tore sie geschossen und kassi 
ert hat. 

1250 PRINT"Wenn sie bei der angezeigten 
Mannschaft" 

1248 PRINT"nichts aktualisieren wollen, 
dann geben 

1258 PRINT"sie bei "geschossen’ die Zahl 
999 ein."; 

126@ PRINT:PRINT=PEN 1 

1270 WINDOW #5,1,48,14,14:WINDOW #4,1,48 
„18, 

1280 FOR'n= 1 TO anz 

1298 PEN 2:LOCATE 1,14:PRINT "{CTRL x”; 
name$ (n)z "{ETRL X3" 

1308 PRINT 

1318 PRINT STRING$ (40, "-") 

132@ PRINT 

1338 PEN 1:LOCATE 1,18: INPUT" (CTRL X>ges 
chossen : {CTRL’X3";gesch 

1348 IF gesch=999 THEN GOTO 1468 

135@ PEN S:LOCATE 1,19: INPUT" CCTRL X3kas 
siert{3 SPACE): {CTRL X}";kass 

136@ PEN 2:LOCATE 1,21:PRINT"Eingabe kor 
rekt: "1°(2 SPÄCE)Falsch: 'L'" 

1378 x$=INKEY$: IF x$="" THEN 1378 

1388 IF x$="1" THEN 1498 

1390 IF x$="[“ THEN CLS#4:60T0 1338 

1488 IF gesch>kass THEN pu(n)=pu(n)+2 

1418 IF gesch=kass THEN pu(n)=pu(n)+1:mi 
pu(n)=mipu(n)+1 

1420 IF gesch<kass THEN mipu(n)=mipu(n)+ 
2 


1458 tor (n)=tor (n)+gesch 

1448 kator (n)=kator (n)+kass 

1458 spiele (n)=spiele(n)+1 

1460 CLS#3:CLS#4 

147@ NEXT 

1488 PEN 2 

1498 LOCATE 1,14 

1508 G0T0 878 

1518 REM 

1520 REM *** Tabelle abspeichern *#* 
1530 REM 

1548 us="T ABEL L E{3 SPACE)abspeiche 


£5D7C3 
1585C) 


LEBCEI] 
1223A3 
[B2F6] 
L6BSC] 
CB2941 
CBBEBI 
[D1D6] 
C81761 
C1DC41 
L9C341 
L7C3E] 
LFB&EI 
14242] 
LF@6A] 
[3BE&I 
CB1B6] 


LSEAEI 
[D4FE1 


L52F@1 


L6A1AI 
[64141 
[12261 
[EB941 
L9A26] 
L4ED2] 
[18781 


LAF6Al 
LFFS2] 
[5A381 


LAB@EI 
10494) 
[BEB6] 
[B4B61 
L2D9&1 
CEFEA1 
L3B9A1 


179781 
[C2SE1 


[C6581 
154441 
LF2F6I 
L185EI1 
£DB221 


L9@F61 
[A356] 


L28CA] 
LASS41 


[8B1C1 
EB1EZI 
CAFBEI 
LATE6I 


[36841 
[4238] 


165461 


LAQB41 
[BESB] 
19792] 
£C82C3 
L42BE1 


LFB4AJ 


[D4163 
[51843 
CB886] 
[B6BAI 
L6B2CJ 
LF756] 
[E@44] 
ECB1@] 
C6FBCI 
[3196] 
[3DaAI 
L3F9A1 


1558 
1568 


1578 
1588 
1598 
1688 
1618 
1628 
1638 
1649 
1658 
1668 
1678 
1688 
1698 
1788 
1718 
1728 
1738 
1748 
1758 
1768 
1778 


1788 
1798 


1808 
1818 
1828 
1838 
1848 
1858 
1848 
1878 
1888 
1890 
1998 
1918 
1928 
1938 
1749 
1958 
1968 
1978 
1988 
1998 


2008 
2018 


2028 
2038 


2048 
2058 


2068 
2078 


2a88 
2098 


2ı08 
2118 
2120 
2158 
2138 
2158 
2168 
2178 
2188 
2198 


2208 
2210 


2228 


2238 
2248 
2258 
2268 


2278 
2280 


2298 
2308 
2310 


rn":60SUB 5698 

PEN 3 

LOCATE 1,6:PRINT“Ihre Tabelle wird 
abgespeichert, bitte(2 SPACE}warten 
sie." 

PRINT:PRINT 

PEN 1 

OPENOUT "Tab" 

PRINT #9,na$s 

PRINT #9,anz 

FOR n= 1’TO anz 

PRINT #9,name$ (n) 

PRINT #9,spiele(n) 

PRINT #9,pu(n) 

PRINT #9,mipu{n) 

PRINT #9,tor (n) 

PRINT #9,kator (n) 

NEXT n 

CLOSEOUT 

FRINT=PRINT 

PEN 2 

60T0 878 

REM 

REM #** Tabelle laden #x* 
REM 


us="T ABELL E{S SPACE}laden": 
SUB 5698 

PEN 3 

LOCATE 1,6:PRINT"Ihre Tabelle wird 
geladen, bitte{B SPACE)warten sie." 


PEN 1:PRINT:PRINT 
OPENIN * 

INPUT #9,na$ 
INPUT #9,anz 

FOR n= 1'TO anz 
INPUT #9,name$ (n) 
INPUT #9,spiele in) 
INPUT #9 
INPUT #9, 
INPUT #9,tor (n) 
INPUT #9,kator (in) 


NEXT n 
CLOSEIN 

PRINT=PRINT 

PEN 2 

60T0 978 

REM 

REM *** Tabelle loeschen ##* 

REM 

us: ABEL L E£S SPACE}loeschen" 


:B0SUB 5698 
FRINT:PRINT:PEN 3 

PRINT"{CTRL X3Wollen sie{CTRL X3":P 
RINT 

PEN ı 

PRINT"die ganze Tabelle... 
TRL X3-1-(CTRL %2"zPRIN 
PRINT"o d e r":PRINT 
PRINT"eine bestimmte Mannschaft... {C 
TRL X3-2-£CTRL %2"zPRINT 

PEN 3 

PRINT" £CTRL X}loeschen ?{CTRL X} 
RINT=PRINT 

PEN 2 

INPUT" CTRL X>Ihre Wahl (1-2) {ETRL 
X "wahl 

PRINT:PRINT 

WINDOW#S,1,40,4,25 

ON wahl 60T0 2388,213@ 


<c 


P 


REM bestimmte Mannschaft loeschen 
ELS#5 

LOCATE 1,6 

PEN 3 

INPUT"Welche Mannschaft soll aus de 


r Tabelle(2 SPACE}geloescht werden 
"z1o$ 

PRINT:PRINTzPEN 1 

INPUT"Wollen Sie diese Mannschaft w 
irklicht4 SPACE}loeschen (j/n) ";q$ 


IF q$="j" OR q$="J" THEN 2258 ELSE 
G0TO 2318 

n2=8 

FOR n= 1 TO anz 


IF name$(n o# THEN n2= 
IF n2=1 THEN name$ (n)=name$ (n+1):sp 
iele(n)=spiele(n+1)zpu(n)=pu (n+1):m 
ipu(n)=mipu (n+1) tor (n)=tor (nt1):ka 
tor (n kator (n+1) 

NEXT 

IF n2=® THEN PRINT=PRINT"nicht vorh 
anden !":FOR n=1 TO 15@0:NEXT:GDTO 
2318 

anz=anz-1 

FEN 2:PRINT:FRINT:GOSUB 878 

PENS 


Listing. »Ligaverwaltung« (Fortsetzung) 


L359E1 
LE3421 


L@BAGI 
[53821 
[E6441 
CA4281 
CF61E] 
E7DCCI 
[C1381 
[E1461 
[974021 
L@BBA1 
[52381 
[2@6E1 
LE1@81 
L9B7A1 
LAAACI 
[21741 
LEsSEI 
[85061 
L32AQ1 
[87143 
E34A41 


L5DABI 
TE64CI 


CC9241 
[2156] 
LZ9EAI 
LC82C1 
L89DA1 
LAFS8] 
[16541 
126D81 
LAB9B1 
186461 
£D97CJ 
[D2@41 
LAA7BI 
L91F21 
L7F82] 
LF@461 
[87CE] 
L9BABI 
[29B6] 
LS6ACI 


L2E4A] 
[D@4C1 


LEEFAI 
CE338] 


LEB881 
[E9181 


LEBSAI 
EF33C1 


137581 
LEFSEI 


LA9S61 
L236E1 
ESSEBI 
[O4QE1 
CBB1A] 
L3F92] 
L991E] 
LCD461 
LFBAAI 
[ES421 


LF4SEI 
LF@4CI 


1@29C1 


LFD281 
[8BEB] 
LCB2E1 
ESCAAI 


CBOFB] 
CDFS4] 


CDB@6] 
[A134] 
CCD423 
184381 


LOCATE 1,24 

INPUT"Wollen sie noch eine Mannscha 
ft loeschen (j/n) ";frs 

ur #r$="J" OR fr$="j" THEN GOTO 214 
IF fr&="N" OR fr$="n" THEN RETURN 
G0TO 2328 


REM ganze Tabelle loeschen 


CLS#S 

PEN 1 

LOCATE 1,6 

INPUT"Wollen Sie die Tabelle wirkli 
ch loeschen (j/n) ";fr$ 

IF #r$="j" OR fr$="J" THEN ERASE na 
me$,spiele,tor ‚kator ‚pu mipusanz=®: 
DIM name$ (25) ‚spiele (25) ‚pu(25) ‚mip 
u (25) ‚tor (25) ‚kator (25) ına$="" :PEN 
2:PRINT:PRINT:GOSUB 87@ ELSE RETUR 


N 

S0TO 118 

REM 

REM #** Tabelle ordnen »»* 

REM 

us="T A BEL L Et3 SPACE)ordnen":6 
OSUB_ 5690 

PRINTZPRINT 

PEN 3: INPUT"Soll Ihre Tabelle wirkl 
ich geordnet wer-den (j/n)";w& 

IF w#="j" OR ws="J" THEN FEN 1:60T0 
2530 ELSE RETURN 
PRINTPRINT:PRINT"Bitte warten sie" 
zPRINTZPRINT: PRINT 

FOR i= 2 TO anz+1:fl=® 

FOR j= anz TO i STEP -1 

IF pu(j-1)<pu(j) THEN GOSUB 2628 

IF pu(j-1)=pu(53) THEN IF pu(j-1)-mi 
BuC-1)<pu(S)-miput3) THEN GÜSUB 26 


IF putj)=pu(j-1) AND putj-1)-miputj 
-1)=pu(j)-mipu(j) THEN IF tar (j-1)- 
kator (j-1)<tor (j)-kator (5) THEN 60S 
UB 2628 

IF pu(j)=pu(j-1) AND putj-1)-miputj 
-1)=pu(j)-mipu (3) AND tor (j)-kator ( 
3) =tor (j-1)-kator (3-1) THEN IF tor( 
j-1)<tor (5) THEN GOSUB 262@ 

NEXT j: IF #1=@ THEN PEN 2:60T0 87@ 


NEXT i:PEN 2:60T0 87@ 

h=pu (5) zpu(J)=putj-1)eputj-i)eh 
h=mipu (3) zmipu (3) =mipu (3-1) zmipulj- 
1)=h 

h=kator (j) skator (j)=kator (j-1) ıkato 
rtj-1)=h 

h=tor (3) ztor (3) =tor (5-1) stor (j-1)=h 


h=spiele(j):spiele(j)=spiele(j-1:s 
(j-1)=h 
me$(j) names (j)=names(j-1)en. 


REM #*#** Tabelle verbessern ### 

REM 

us="T A BEL L E(3 SPACE)verbesser 

n":GOSUB 5690 

PRINT+PRINT 

PEN 1 

PRINT"Eine neue Mannschaft einfuege 

m {CTRL X2-1-{CTRL X2" 5 

PRINT STRING$ (38, "_") :PRINTSPRINT 

PRINT"o d e r":PRINTZPRINT 

PRINT"Einen Fehler verbessern{8 SPA 

CEICCTRL_X2-2-CCTRL X3"; 

PRINT STRING$ (23, "_") zPRINTZPRINT=P 

RINT 

PEN 3: INPUT" {CTRL X>Ihre Wahl bitte 
>enter<{CTRL X?"zwahl 

PRINT 

WINDOW #5,1,40,4,25 

ON wahl GOSÜB 2878,3030 

RETURN 


REM neue Mannschaft einfuegen 


r=anz+i:anz=anz+l 

IF anz >2@ THEN anz=2@:LOCATE 1,21: 

PEN 2:PRINT"Tabelle ist ueberfuellt 
!":FOR n= 1 TO 2@8@:NEXT :RETURN 

ELS#5 

LOCATE 1,4:PRINT:PRINT"Geben sie er 

st Name, "dann Spiele, Plus-" 

PRINT"punkte ‚Minuspunkte ‚geschossen 

e Tore, und"; 

FRINT"zuletzt kassierte Tore an. * 

GOSUB 738 

PEN 3:LOCATE 1,24 

PRINT"Wollen sie noch einmal eine M 


108941 
LC3B4] 


LA4ASCI 
LO7FE] 
[6816] 
[2726] 
T4EABI 
1992A] 
[A348] 
LE636] 
TESA6] 


C6D2E1 


[80341 
C6AACI 
[33AB] 
[2318] 
149A43 


C67ACI 
[53761 


[7188] 
LF3SC) 


LF@5@] 
C19D6]J 
L[2E52] 
[869€] 


taDDaı 


[DEF6J 


LCOFEI 
139A4] 
C1E42] 


L33F41 
172263 
14208) 
tABS2I 


L@8DC1 
19060) 
[8DA2]J 
133941 
LEFB4] 
L419E] 


LEE18] 
[5B82] 
17444) 


torsa] 
18452] 
C16B4] 


LS2FC1 
1D2D8] 


12BD43 
L12F2] 
1393A1 
L8DB4] 
[839€] 
LC82ZE] 
[4836] 


102323 
[48581 


C1B883 
1224C1 


tE1EAI 


L35EB1 
135883 
[C8541 
[B88F83 


annschaft" 

INPUT"einfuegen (j/n)";fr& 

IF fr$="j" OR fr$="J" THEN GOTO 287 
® 

IF #r$="n" OR fr#="N" THEN RETURN 
60T0 2978 


REM Fehler verbessern 


welcher Mannschaft wollen 
Sie eine(2 SFACE)Verbesserung vorn 
ehmen ";maf 
FOR 1 TO anz 
IF ma$=name$(n) THEN r=nzanz=n:op=1 


23 
NEXT 

IF op<>123 THEN G0TO 3188 

PEN S:LOCATE 1,8 

PRINT"Geben sie erst Name, dann Spi 
ele, Plus-" 
PRINT"punkte,Minuspunkte geschossen 
e Tore, und"; 

PRINT"zuletzt kassierte Tore an. " 
GOSUB 738:60T0 3198 
PRINT=PRINT:PRINT"nicht vorhanden ! 


r=1:anz=aush:op=® 
PEN 3:LOCATE 1,24 

PRINT"Wollen sie nocheinmal eine Ve 
rbesserung 

INPUT"vornehmen (3/n) "ztr& 

IF fremtjt OR fr&="3® THEN GOTO 305 
IF #r&="n" OR fr#="N" THEN RETURN 
60T0 3208 

REM 

REN »#* Tabelle ausdrucken ### 
us="T AB EL L Et3 SPACE)ausdrucke 
n":60SUB 5698 

PEN 1 

PRINT:PRINT: INPUT"Ist der Drucker b 
ereit (j/n) "sfrs 

IF fr$="n" OR fr&="N" THEN RETURN 
PEN 3 

LOCATE 1,9:PRINT"Tabelle wird ausge 
druckt - etwas Geduld" 

PRINT#8, TAB(18) 

PACE) "znas; "(2 SPACE) rnnnunnnenunne 


PRINT#HB 
PRINT#8, TAB (2) ; "Mannschaft"; TAB(33) 
;"Spiele"; TAB(42) ; "Tordif. "3 TAB(54) 
; "Tore"; TAB (69) ; "Punkte" 

PRINT#B 

FOR n= 1 TO anz 

dif (n)=tor (n)-kator (in) 

PRINT#8,n;". "names (n); TAB(35) ;spi 
ele(n); TAB(44) ;dif (n); TAB(52) stor (n 
3 TAB(58) 5": ";kator (n) 5 TAB(67) 5pu(n 
3; TAB(72) 5": "jmipu (n) 

NEXT n 

SOTO 868 

REM 

gen Ergebnisse eingeben ##* 
us="E RGEBN IS S E(3 SPACE}ein 
geben":G0SUB 5698 

z$="":spt=Q 

PRINT=PRINT 

PEN 3 

IF wa<i OR wa>3 THEN 352@ ELSE PRIN 
T"{CTRL X2";gruppes; ":{CTRL %}"2GOT 
0 3608 

PRINT"Sie koennen zwischen folgende 
n Gruppen{2 SPACE}waehlen:" 

PRINT: PRINT 

PEN 1 

PRINT"Fussball-Bundesliga. CCTR 
L_X-1-{CTRL X) "zPRINT 
PRINT"Handball-Bundesl iga. tCTR 
L_X2-2-(CTRL X)" :PRINT 
PRINT"B-Jugend (Kreisstaffel).. (CTR 
L_XI-3-{CTRL X)” 

PEN S:PRINT+PRINT: INPUT" CTRL X) Ihr 
e Wahl bitte (1-3) {CTRL X)"zwa 

IF z$="*" THEN RETURN 

PEN 1: PRINT: INPUT" {CTRL X>Welcher S 
pieltag bitte(3 SPACEI{CTRL X}";st 
PEN 3 

IF z$="##" OR z$="###" THEN 3670 
PRINT:PRINT=PRINT"Sollte eines der 
angegebenen Spiel 

PRINT"nicht stattgefunden haben,so 
geben sie" 

PRINT"zwei mal die Zahl ‘999° ein." 


Listing. »Ligaverwaltung« (Fortsetzung) 


L&BAEI 
128581 


193961 
CBDF@J 
LiB1E] 
[B918] 
EBSSE] 
[931CJ9 
[A544] 
[52105] 
LESABI 


L7D521 
LFAS6] 


L3DD8] 
[E648] 
12A3@1 
[C388] 


156@C1 


L1BD6] 
[317E] 
C1B0A) 


CiD@EI 
TE2881 
[99E81 


17646] 
[BCBBI 


[4168] 
LODFCI 
[9518] 
1309E1 
[22741 
c@2A21 


185883 
17054] 


CAASCI 
L1SFAJ 
LEBSE] 


13174] 


LFARBI 
CZAABI 


CD8241 
C94ACI 
[963C] 
L366E]1 


L95B6] 
CEB6CI 
187C21 
LAEIEI 
(97281 
tıca21 


C7CB4] 
CB118] 
15188] 
LEBSCI 
18162] 
L134C] 
L597E1 
CF848] 
LE276] 
EFDZEI 
LFCF2]J 


CSEE6] 
L7F7@] 


LF6FEI 
CDF48] 
[3694] 
[97BC1 
LF23C1 


LBBF8] 


= 


Anwendungs-Listing 


——— 


3678 
3688 


3668 FOR n= 1 TO 3@@@: NEXT 


ON wa GOSUB 4220,4870,412@ 

IF az/2<>INT(a2/2) THEN az2=az-i EL 
SE az2=az 

FOR k= 1 TO az 

READ mas$#(k) 

NEXT k 

IF wa=i THEN RESTORE 628@ 
IF wa=2 THEN RESTORE 63480 
THEN RESTORE 6408 
" THEN RETURN 
FOR n=1 TO st-1 

FOR m=1 TO az 

READ wim,n) 

NEXT mın 

n=st 

MODE 2:PEN 1 

PRINT gruppes 


PRINT" {CTRL %)";st5". Spieltag: {CTR 
L_X)"sPRINT:PRINT 
IF z$="##" THEN RETURN 


FOR m=1 TO az2 STEP 2 

READ w(m,n)zREAD wim+1,n) 

PRINT mass (n(mın))5" =""jmassiwint 
n 

PRINT CHR$ (11) ;STRING£(S@,9);LINE 
INPUT er$(m,n) 

PRINT CHR$(I1)HSTRINGE(53,95" : "5 
LINE INPUT er&(m+1,n) 

er (mın)=VAL (ers (m,n)) zer (m+ti,n)=VAL 
(ers {m+1,n)) 

NEXT m 

IF a22<>az THEN READ w(m+1,n) PRINT 
:PRINT"Spielfrei: "mass (m{m+1,n)) 
WINDOW#7,,1,80,24,25:LOCATE 1,24 
SosuB Seld 

spt=® 

LOCATE 1,25 

INPUT"Noch eine Eingabe (j/n) "zwah 
IF wahl$="j" OR wahl$="J" THEN z£=" 
###":LOCATE 1,24:G0T0 3600 

IE yahls-"n" ÖR wahls="N" THEN 60TO 
1 


4908 GOTO 3958 


REM Fussball-Bundesliga 
RESTORE 4950: az=18 
gruppes="Fussball-Bundesliga":RETUR 
N 


DATA Bremen ‚Moenchengladb ‚Nuernberg 
„Mannheim,Frankfurt ‚Muenchen ‚Leverk 
üsen ‚Koeln ‚Bochum, Kaiserslautern ‚Ue 
rdingen ‚Hamburg ‚Stuttgart „Duesseldo 
r# ‚Saarbruecken ‚Dortmund, Schalke,Ha 
nnover 


REM Handball-Bundesliga 
RESTORE 4180: az=14 
gruppe$="Handball-Bundesliga":RETUR 


DATA TV Grosswallstadt FA Goeppinge 
n,VfL Guenzburg, TuSEM Essen, TBV Lem 
90, TuRu Duesseldor# ‚OSC Dortmund ‚HT 
V' Schwabing, Weiche-Handewitt,THW K 
iel ‚VfL Gummersbach,R. Fuechse Berl 
in,6W Dankersen, TuS’ Hofweier 


REM B-Jugend (Kreisstaffel) 
RESTORE 415@:az=11 
ar pe®="B-Jugend (Kreisstaffel)":R 


DATA SG Tiefenbach/Au,TSV Kellmuenz 
‚SF Illerrieden,SV Ingstetten,SV Be 
ürenz8V Grafertähofen, SC, Voehringen 
11,$6V Illerberg,FV Bellenberg, SV 
Jedesheim,TSV Buch 
REM 

gem *** Ergebnisse ausgeben #** 

REI 

MODE 1:PEN 2 

us="E RG EBN I S S E(3 SPACEJaus 
jeben":GOSUB 5698 

EN 3 

PRINT: PRINT 

PRINT"CTRL X)Sie haben die Wahl, E 
gebnisse von: (CTRL X9" 

PEN 1 

PRINT+PRINT 

PRINT"einen bestimmten Spieltag... 
CTRL X3-1-CCTRL X" 
PRINT:PRINT"O de r" 
PRINT:PRINT"einer bestimmten Mannsc 
haft.. CCTRL X)-2-CTRL X)" 

PEN 3 

PRINT:PRINT:PRINT"{CTRL X)anzusehen 
CETRL X3" . 

PEN 2:PRINT:PRINT:PRINT: INPUT" Ihre 
Wahl bitte (1-2) ";wahl 

WINDOW#S, 1,4@,4,25: CL5#5 

ON wahl &0f0 A540, 


L6C221 
CAFEAI 


1749C1 
LSE6B] 
L858E] 
[DESAI 
[3CC8] 
TE3SC6]J 
[D6C4] 
[476C1 
[C2F6] 
LC322] 
Li@FA] 
CD4B2] 
L&CFAJ 
L1AA2I 
LIEA2I 


CS9BEI 
[DBC®) 
[62E8) 
£C73A1 


A658] 
ESFCAI 
1927C1 


C@B881 
[E872] 


156881 
C7F18] 
LC9BCI 
L8AsAI 
L451C3 


t@DFCI 
LD72E1 


LB37A1 
CBB1C1 
EBF1S] 
[25A2] 
[385E] 


[A342] 


CACD4] 
19A223 
[41681 
12958] 


tBABB1 


L[FS5D4] 
[C31AJ 
[9C16) 
£4954] 


[26B6]1 


t2EC8] 
LIF9EI 
L3B3AJ 
[2542] 
LB9A&] 


LBFBEI 
CD43A1 
14778] 


LCA4EI 
£773C1 
[SE7E] 


L&1DE] 
CAsIEI 


167581 
1S5C441 


1738E1 
113A8] 


L9CDAI 
cacıcı 


4948 
4958 


4968 
4970 


REM bestimmter Spieltag 

LOCATE 1,6 

zi="n." 

IF wa<ı OR wa>3 THEN GOSUB 3500: 60T 
0 4398 

PEN S:PRINT"{CTRL X)" zgruppesz "2 (CT 
RL_xX)":GOSUB 3608 

FOR m= 1 TO az2 STEF 2 

READ wim,n)zREAD wim+l,n) 

PRINT mas$ (w(m,nd);" -" "jmass(w(m+1 
und) 

IF er (m,nd=999 THEN PRINT CHR# (11); 


STRING$ (51,9); "ausgefallen !":60T0 
4450 

PRINT CHR$ (11) 5STRING$ (50,9 er (m,n 
’ 

PRINT CHR&(11) 5STRINGS(SS,M;" 3 "4 
er (mH1,n) 

NEXT 

IF az2<>az THEN READ spfzPRINT+PRIN 
T"Spielfrei :"zmas$(spf) 

LOCATE 1,25 

INPUT"Noch eine Ausgabe (j/n) "jfr$ 
IF fr$="J" OR frs="j" THEN MODE 1:6 
0T0 4178 

IF #r$="N" OR fr$="n" THEN RETURN 
60TO 4478 

REM bestimmte Mannschaft 

zs="e" 

LOCATE 1,5 


IF wa<i OR wa>3 THEN GDSUB 3500: 605 
UB_ 3670: CLS#5:LOCATE 1,5 ELSE PEN 3 
:PRINT:PRINT"{CTRL X)";gruppes;" :{ 
CIRL X)":G0SUB 3678: PRINT 

PEN 1 

INPUT"Von welcher Mannschaft woll 
sie die(3 SPACE}Ergebnisse sehen 
mans 

EN 3: PRINT 

INPUT"Bis zu welchem Spieltag ";spt 


MODE 2:PEN ı 
PRINT gruppes 

PRINT" (CTRL X3" mans "CCTRL X3":PRI 
NTEPRINT 

k=0 

FOR n= 1 TO spt 

FOR m= 1 TOD az2 STEP 2 

READ wim,n)zREAD wim#+1,n 

IF man$=mas$(w(m,n)) OR mans=mas$(w 
(m+1,m)) THEN GOSUB 4750 

NEXT'm 

IF az<>az2 THEN READ spf:IF mas$ (sp 
#)=man$ THEN ken: spt=spt-1 

NEXT n 

IF k<>@ THEN PRINT:PRINT man$;" hat 
te am';k;". Spieltag Spielfrei !" 
G60T0 4478 

IF mas$(w(m,n))=man$ THEN PRINT" {CT 
RL X "zmas#iwimumd);"{CTRL X2"5" - 
mass (w(m+1,n)) 

IF mass(w(m+l,n))=man$ THEN PRINT m 
ass (wim.n));" — {CTRL X)"zmass(wim+ 
1,md)s "ICTRL X" 

IF er (m,n)=999 THEN PRINT CHR$(11); 
STRING$(51,9); “ausgefallen !":G0TO 


4780 
PRINT CHR& (11) 5 STRING$ (50,9) ;er (m,n 
’ 

PRINT CHRE(11) 5STRINGE(SS, ME" 2 "5 
er (m+1,n) 

RETURN 

REM 


REM #*#* Ergebnisse abspeichern *** 
REM 
us="ERGEBN IS S E(S SPACE)abs 
jeichern":G0SUB 5698 

INTzPRINT 
IF wa<i OR wa>3 THEN 4858 ELSE PEN 
SzPRINT"(CTRL X)" ;gruppesz ": (CTRL X 
3": PRINT:GOTO 4930 
PEN 3 
PRINT"Von welcher Gruppe wollen sie 
die Er- 
PRINT"gebnisse abspeichern 7" 
PRINT: PRINT 
zs="#" 
GOSUB 3548 
WINDOW#S, 1,40,4,25:CL5#5 
LOCATE 1,6 
ON wa GOSUB 4920,4078,4120 
PEN 1 
INPUT"Bis zu welchem Spieltag wolle 
n sie diet2 SPACE}Ergebnisse abspı 
chern ";spt 
PRINT:PEN 3 
INPUT"Unter welchem Namen 


"zabs 


Listing. »Ligaverwaltung« (Fortsetzung) 


L8AQB] 
TEAAE] 
[4300] 


[7180] 


£[C25C] 
13920] 
[CC28] 


L4F46] 


t@1F2] 
L180E] 


[8BCQ] 
(F158] 


LBAFB] 
EFD16] 


LE4681 


[72E6] 
C28FC1 
134241 
C3EB8] 
[306A1 
EBAAEI 


[76041 
TED46] 


LBFBAI 
£7DpcI 


[C7@6] 
LBAgEI 
EFCIEI 


L3B2A1 
CDB8A] 
[7056] 
LE41E] 
LCESB1 


LSAFCI 
LAF7CI 


LDEQAI 
[9878] 


L428C1 
LC12A1 


[29EC1 
CDDEBI 


L2E0AI 
EFFiAI 


L9ECCI 
LBEA6I 
L4ABB] 
CE1AE]J 
[26A2] 


14442] 
LECB61 


CEBFAI 
[@O44E] 


L6EF61 
L7@2E] 
151981 
L777C3 
[32B2] 
L9AEA] 
C44B41 
LEAEA] 
ED34A1 


CF2A4] 
[8BEB] 
cec583 


PRINT 
PEN 1 

OPENDUT abs 

PRINT#7 ‚wa 

PRINT#9,spt 

PRINT#F,az 

PRINT#9}gruppes 

FOR n=1 TO spt 

FOR m=1 TO az 

PRINT#F ‚er (m,n) 

NEXT NEXT 

CLOSEOUT 

6OTO 848 

REM 

REM ##* Ergebnisse laden x##* 

REM 

us="E RGEBENI SS E(3 SPACEIlad 
en": GOSUB 5690 

PRINT= PRINT 

PEN 3 

PRINT"Ihre Ergebnisse werden gelade 
no 

PRINT"bitte warten Sie." 
PRINT=PRINT 

PEN 1 

OPENIN * 

INPUT#F ‚wa 

INPUT#7,spt 

INPUT#7, az 

INPUT#9 \gruppes 

FOR n=1'T0 spt 

FOR m=1 TO az 

INPUT#9 ‚er (mın) 

NEXT _mın 

CLOSEIN 

PEN 3 

PRINT=PRINT:PRINT"Es wurden die Spi 


gruppes; "{CTR 

KaxXz= 

PRINT:PRINT"geladen. " 

FOR n= 1 TO 1508: NEXT 

WINDOW#7 ,1,48,24,25:LOCATE 1,24:PEN 
1:60SUB "5818 

CLS#7 

PEN 2 

LOCATE 1,22 

60T0 878 

REM 

REM #*** Ergebnisse loeschen #** 
REM 

us="ERGEBN I SS E(S SPACEIIoe 
schen":60SUB 5698 

1,6:PEN 1 

jollen sie ihre Ergebnisse wi 


IF lo$="N" OR lo$="n" 
S0TO 5428 

TO st 
TO az 
er (m,n)=B 
NEXT mn 
st=9: az=B: was 
PRINT:PEN 2 
G0TO 878 

REM 

REM ##* Programm beenden x#*#* 

REM 

us="P RO GG RAM M{S SPACE}beenden 
":G0SUB 5698 

PEN 1 

PRINT: PRINT 

PRINT"Wollen Sie das Programm wirkl 
ich be-" 

INPUT"enden  (3/n) "zende$ 


THEN RETURN 


IF ende$="j" OR ende$="J" THEN MODE 
2:END 

IF ende$="n" OR ende$="N" THEN RETU 
RN 

REM 


REM ##* Routine fuer Ueberschrift 
REM 

MODE 1:PEN 2 

WINDOW#6,1,40,1,3 
PAPER#6 ‚2: CLSE6 


PRINT CHR$ (24) 
LOCATE 5,2 
PRINT us 
LOCATE 1,3 
PRINT CHR# (24) 
RETURN 

REM 


REM *** Routine zur Uebertragung de 
r Ergebnisse auf Tabelle 

REM 

PRINT"Sollen die Ergebnisse auf die 
Tabelle" 


INPUT"uebertragen werden (j/n) 


Anwendungs-Listing 


LF9@4] 
LFAS41 
C1B2C9 
[56A6] 
L51A6] 
LSABB] 
EAD6AI 
L270E1 
LA4161 
[3B60] 
[88441 
EFDBB]J 
L76BA] 
[35961 
[&9A61 
[43941 


L6ESAI 
[SD7E] 
[F4441 


£715C1 
L&EEE] 
LE186] 
LF6361 
E2FE&J 
L42B2] 
[6982] 
ESABCI 
LED76] 
[5514] 
L191C1 
LES6CI 
EDFACI 
L7FEAI 
LIFSEI 


L&EABI 


[04481 
[29841 
L6C241 


L663A] 
LCBS61 
LEC4A1 
[4814] 
L8CC21 
[319C1 
[46461 
[33A@1 


L56DA] 
LAEBEI 


LA4BFCI 
EI1CEI 
LESDEI 
[1814] 
[881CJ 
[89381 
CEE18] 
[8712] 
[D2AB] 
[69D41 
[32D81 
£73D21 
L4AACI 
EiFD21 
[3498] 


174541 
[98421 
145841 


L@D801 
C4D821 


LC75C1 


LCCIEI 
LACAEI 
L99AB1 
[32AB1 
LASA41 
[DF9B] 
[8826] 
CBBAAI 
[2658] 
LF27@] 
L1CB6] 
C@SB21 
[BEAAI 
124A2] 


173721 
[56A61 


L435C1 


bert 

IF ueber$: THEN CL 
S#7: RETURN 

IF ueber$: "J" THEN 58 
8a 


CLS#7:LOCATE 1,24:60T0 5830 
CLS#7:LOCATE 1,25: PRINT" {CTRL X3Wir 
d gemacht !{CTRL X" 

z$="#":G0SUB 3678 

IF spt=® THEN spt=st:anf=st ELSE an 
#=1 

anf2=anf-1:IF anf2<1 THEN anf2= 
TO 5968 

FOR k=1 TO anf2 

FOR 1=1 TO az 

READ h 

NEXT 1,k 

FOR n= anf TO spt 

FOR m= 1 TO az2 STEP 2 

BERDn mn) zBEAD wma) 


:60 


IF mas$(w(m,n))=name$(k) THEN kani= 
1:zu=@:60SUB 6128 

IF mas$(w(m+1,n))=names(k) THEN kan 
2=1:zu=1:60SUB 6128 

NEXT k 

IF kani<>1 THEN anz=anz+ti:k=anzınam 
e$(k)=mas$(w(m,n)):zu=®: GOSUB 6128 
IF kan2<>1 THEN an; =anzınam 
e#(k)=mas$ (w(m+1,n) GOSUB 612 
a 

NEXT m 

IF az2<>az THEN READ zahl:IF n=1 TH 
EN anz=anz+1:name$ (anz)=mas$ (zahl) 
NEXT n 

nas=gruppes 

IF anz>2B THEN anz=28 

RETURN 

IF_anz>20 THEN anz=2@: CLS#7:LOCATE 
1,2: RINT"Tabelle ueberfuellt !":F 
OR n= 1 TO 2000: NEXT:G0TO 3758 

IF er (mtzu,n)=399 THEN RETURN 

IF zu=® THEN g=i1 ELSE g=® 
spiele(k)=spiele(k)+1:tor (k)=tor (k) 
+er (mzu,n) kator (k)=kator (k)+er (m+ 


g,n) 
IF er (mtzu,n)>er (mtg,n) THEN pu(k)= 
puck)+2 


IF er (mtzu,n)=er (mtg,n) THEN pu(k)= 

puck)+1zmipu (k)=mipulk) +1 

IF er (mtzu,n)<er (m+g,n) THEN mipu(k 

)=mipu(k)+2 

RETURN 

REM 

REM #*** Routine bei 
"Data exhausted’ 


Auftreten eines 


REM 

PEN ı 

PRINT:PRINT"Data’s sind ausgegangen 
in 

FOR n= 1 TO 2008: NEXT 

RESUME 118 

REM 

REM Data’s fuer Fussball-Bundesliga 

REM 


DaTa 17,1,19,4,5,9,18,7,11,6,18,2,1 
2,18,8,5,15 

DATA’ 1,18, 1: 12,4,11,6,13,7,15.12,8 
,5,3,9,14,2,17 
Dafa’14,5,4,9,15,1,3,10,8,16,18,2,1 
7,6,11,13,12, 
REM 


REM Data‘s fuer Handball-Bundesliga 


REM 
DATA 7,6,5,18,3,12,2,13,1,14,11,4,0 


BATa 13,7,12,1,14,11,6,9,8,5,4,2,10 
Bära 11,12,3,5,1,18,9,13,2,14,8,4,6 
REM 

REM Data’s fuer B - Jugend 

REM 


Data 19215241508 .218: 9710111 
DATA 3,11,5,2,7,4,9,8,8, 10,1 


Listing. »Ligaverwaltung« (Schluß) 


1731801 
LDIE6] 


LFDD&] 
[2@D81 


LF9241 
£31D23 


[22D41 


cDi1c] 
[22341 
LDD2@3 
L972C1 
EF@AAI 
C886AJ 
LF72A1 
[F344] 
£D7C43 
CDDE4] 


L2BB41 


[43721 
LE7661 


UFDS4] 


L@6121 
CB17@1 


[DBE41 
LAS76] 
LEEACI 
CBFACI 
[06981 


LES4E] 
LFE3S2] 
LZAEE] 


121561 
L@CSEI 
L@8DEI 


L&3B6]1 
L976AQI 
155981 


L712C1 
L579C1 
EFCSE] 


128981 
C2A1C] 
LSFE2] 
[56A61 


LD7C23 
E38AA] 


CD9F21 
CAIF4] 


L6CF6] 
L9AABI 


13678] 
LS58A41 


[6162] 
148641 


LD766] 
L44ACI 
[D9@@1 
[589E1 
L64FC] 
ED6FEI 
[97001 


Anwendungs-Listing 


1 18 MODE 2 LDFF@I 
20 REM ren 


z0 Rei GRAMM er 
Mm = DRUCKPRO! 
Tr H * = 617321 
m 40 REM «* F 
uDberweisen : (aueaı 
Ss@ REM « BANKIBERWEISUNGEN 
nu [1 1 * [3E88] 
68 REM * von 
naturiich mi 5 ca 
70 REM * Heinz-Peter Dricker 


* CE8441 
80 REM =» Liebfrauenweg 17 


E ” 17158] 
90 REM * 4830 G}tersloh 
* CFAAAI 


DE er 


. CEESEI 
11Q MODE BrGOSUB 270 er com 
f 12@ PRINT"{CTRL J L IICCTRL I 

Von Ihrem Schneider-Com- II CCTRL II CCTRL IIECTRL IICCTRL 9343 
ter kö Si h „SPACEIDRÜCKPROGRAMMCTRL DICCTRL I nun, 
puter können Sie auc 138 ERINT*CR SPAGEIFARCETRL 3 NPAETRL 32" ED6icı 

A H 148 PRI un‘ 
Ihre Banküberweisungen 15® FOR p=1 TO S@QG:NEXT p CA2941 
bearbeiten lassen en u 
e 
© 18@ MODE 2: BORDER @: 19964] 
190 WINDOW #1.15,68,1,5WINDOW #2,1,80,4 20, 
B 4 “ n s 

„Banküberweisungen, die mitder Hand geschrieben wurden, 208 PRINT#1,"CCTRL JI€12 SPACEIDRUCK 
sind oft schlecht zu lesen. Falls Sie auch das Problem mit der E R{4 SPACEIO K 713 SPACEIJ/N" LFASAI 
Schrift kennen, sollten Sie Ihren Schneider-Computer einset- | 340 ır une rerzze 

h Pu! ii 22@ IF z$="j" OR z$="J" THEN PRINT #8,CH 


zen und die Aufträge mit dem Drucker beschriften. " ;CHR$ (27) "E" HCHR$ (27); "6" 


Die Druckbefehle werden von jedem Epson-kompatiblen HEN END Hesanı 
Gerät verstanden. Aber auch andere Drucker machen (wenn I " AND z#<>"n" A 
sie nicht allzu exotisch sind) keine Probleme. Der Befehl N HEN 80T 21 Eyacas 
»CHR$(27);”E”« steht für Fettdruck, »CHR$(27);"G”« für Dop- 106962 
peldruck und »CHR$(27);”0”« für Nichterkennen der Perfora- 
fon. er 

Das Programm benutzt einen deutschen Zeichensatz. Die 290 REM 
Sonderzeichen liegen auf den Tasten 17, 19, 26, 28 und 29 L96BEI 
(siehe auch im Handbuch). Bis zu zehn Überweisungen kön- [28401 
nen auf einmal bearbeitet werden. Zum korrekten Beschriften Tu en 
sollten Sie sich bei Ihrer Bank spezielle Computervordrucke 33@ FOR c=1 TO 8 [DFS21 
besorgen. (Heinz-Peter Drücker) 

! F Überweisungsauftrag an Buchungsvermerke der Bank 
IH 


Firma Musternann ne: @ütereich 
[Musterwag ES 
a Een Ta Eee se - 


> Volkabank Sütersi 


a 


Anwendungs-Listing 


348 READ ac) L5A101 3E INGA B EL2 SPACEI"Fag"CTRL I 
350 NEXT c E39F4] zu 152801 
36@ SYMBOL a,a(1),a(2),a(3),a(4) ,a(5),al 127® LOCATE 14,8: INPUT"",e$(1,a) LAABAI | 
6) ,a(7),a(8) [B848] 128@ LOCATE 14,9: INPUT"")e$(2,a) CBOCQI 
370 NEXT b CBBF6J 129@ LOCATE 56,9: INPUT"",e$(3,a) LB&DQ1 
38@ KEY DEF 71,1,121,89 EBBAAI 13@@ LOCATE 14,11: INPUT"",es(A,a) LFS@81 
390 KEY DEF 43,1,122,98 C429C1 131@ LOCATE 38,11: INPUT" caa081 
400 KEY DEF 28,1,123,91 [5196] 132 LOCATE 14,14: INPU LE7161 
41® KEY DEF 26,1,125,93 CAC9CI 133@ LOCATE 14,15: INPU CCEICH 
420 KEY DEF 29,1,124,92 TEDABI 134® LOCATE 14,16: INPU [2922] 
430 KEY DEF 24,1,126 LADSEI 135@ LOCATE 54,15: INPU 12@2C1 
440 KEY DEF 17,1,58,42 L7E48] 136@ LOCATE 14,18: INPU £617C1 
450 KEY DEF 19,1,59,43 LAD4AI 137@ LOCATE 30,18: INPU CA77C1 
460 RETURN LA9341 138@ LOCATE 32,20: INPUT N [20761 
470 REM der Buchstabe 'sz’ CAAaCı 139@ PRINT #1,"{CTRL JICCTRL 93817 SPACE 
480 DATA 126 [241E] 3E I 6 A'B E{5 SPACEIO K{2 SPACEI?L 
470 DATA %x Q111100@ (93721 3 SPACEIJ/NECTRL 3“ L&A321 
508 DATA &x 11001108 LBE6&2] 1400 z#=INKEYF LE2C8] 
51® DATA &x 11001100 [82641 141@ IF z#="j" OR z$="J" THEN GOTO 145@ L[9AFAJ 
520 DATA &x 11111008 LIF&BI 1428 IF z$="n" OR z$="N" THEN GOTO 1250 L6&F@21 
530 DATA %« 11001100 L3AsBI 1430 IF z$<>"j" AND z#<>"J" AND 24<>"n" 
540 DATA &x 11001100 L6EAA] AND z$<>"N" THEN GOTO 1400 LES7AJ 
550 DATA &x 11111000 [6961 144@ IF z$="" THEN GOTO 1408 C13881 
560 DATA %x 11000000 LAD6AI 1450 NEXT a L8F541 
57@ REM der Buchstabe ’ae’ L@9C@1 1468 REM- 
580 DATA 123 L751A] 
570 DATA &x 01191100 102741 [3494] 
600 DATA &x Huanaaen LAFSCI 147@ REM *#* DRUCKER ANWEISUNG ##* [6EB2] 
61@ DATA &x 01111000 [6D661 1489 REM—— 
620 DATA %x BO001100 ECE64] — 
630 DATA &x Q1111100 [916C) 1D4983 
640 DATA %x« 11001108 EBS6CI 1490 PRINT #1,"{CTRL JICCTRL 925 SPACEI 
650 DATA &« Q1110110 129781 IBERWETISUNG E N{S-SPACEID 
660 DATA %x BOODBDEO 147681 RUCK E N{3 SPACEI?C2 SPACEIJ/NE 
670 REM der Buchstabe ‘oe’ CBADEI CTRL 92 188841 
680 DATA 124 EB61E] 1508 EDECAI 
690 DATA %x 01101190 171761 1518 THEN 6070 1550 L73F8] 
700 DATA %« aaanEaee LBESEI 1520 THEN END 124701 
718 DATA %x 89111100 148683 153@ IF z#<>"j" AND z6<>"J" AND z4<>"n" 
720 DATA %x 01100110 LEBGAI AND z$<>"N" THEN GOTO 1588 LCF7EI 
730 DATA &x @11Q0110 [94601 1540 IF z$="" THEN GOTO 1588 LAFBCI 
740 DATA &x Q110@110 LABGEI 155@ PRINT #1,"(CTRL JICTRL JB SPACE) 
750 DATA %x @@111100 (30701 IBERWELISUNGE N{S SPACEIW 
760 DATA %x Baaaanao [766A] ERDE N(29 SPACDBGEDRUCKT 
770 REM der Buchstabe 'ue’ LIFECI " L1ES2I 
780 DATA 125 19722] 1560 CLS#2 £C8461 
790 DATA &x 81101100 L4C78] 1578 FOR a=1 TO i [BAIEI 
800 DATA 3x aunDanaD [0968] 158@ PRINT #8," {CTRL II{CTRL 2" CBBF4] 
810 DATA &x Q110011B LIBAAI 1598 PRINT #8,TAB (Szes(1,a) CBBE2J . 
828 DATA %x @1100110 L176C) 160@ PRINT Diest2,a); 12344] 
830 DATA &x B110011D [736E] 1610 PRINT (6) set (3,a) [70463 
840 DATA %« 01100110 L5F7@] 162@ PRINT EB4EZI 
850 DATA &x Q@l11l1ı LAC76] 163@ PRINT (Diet(4,a); [9454] 
860 DATA &x OORDDBED LD16CI 164® PRINT (9) e$(5,2) [9850] 
870 REM der Buchstabe ‘AE' [3A46J 165@ PRINT CTRL I £75DC1 
880 DATA 91 EC1C8I 1660 PRINT #8,TAB (3) ;5e$(6,a) L55E8] 
890 DATA &x 11@11@11 LaC7E] 1670 PRINT #8,TAB (3) je$(7,a)} 158621 
900 DATA &x 00111100 L9EAAI 1680 PRINT #8,TAB (44) ;e+(9,a) [895CJ 
710 DATA &x Q110011D [166C1 169@ PRINT #8,TAB (S);e#(8,a) [93F21 
920 DATA &x @110011B LIAGE] 170® PRINT #8 LEBEB] 
930 DATA &x @111111@ 199741 1710 PRINT #8,TAB (S);e$(1B,a); C6SACI 
948 DATA %x 01100110 [4272] 172® PRINT #8,TAB (21) ;es(1l,a) [8194] 
950 DATA %x @110011@ CA674] 1730 PRINT ETRL 33" CaaDaı 
760 DATA %x Buaaaaa® L786E1 174® PRINT #8,TAB (19) je#(12,a) COSAEI 
970 REM der Buchstabe ’OE’ [ES64] 175@ PRINT #8, "{CTRL JICCTRL IILCTRL 32€ 
980 DATA 92 LADCCI CTRL JILETRL JICETRL IIECTRL 43" LB256] 
990 DATA %x 101110180 [22BE1 1768 NEXT a CB85C9 
1000 DATA %x 01101108 LE7BAI 177@ PRINT #1,"CCTRL_JICCTRL IIt11 SPACE 
1910 DATA %x 11200118 L63BC] 3W E I T'ER E{3 SPACEIE IGABE 
1020 DATA &x 11000118 L9FBEI NIS SPACEI?CZ SPACEII/NECTRL I" LEECBI 
1030 DATA &x 11000118 178091 1780 CF&DEI 
1840 DATA %x 91191100 LF7C2J "OR z#="3% THEN RUN [B1AEI 
1050 DATA %x 001110200 C6BC21 OR z4="N" THEN GOTO 1830 LFD@EI 
1060 DATA %x AaBaaaR® EF9BEI 1818 AND z#<>"3" AND z$<>"n" 
197@ REM der Buchstabe 'UE' c5acaı " THEN GOTO 1788 CAF941 
1080 DATA 93 [S61E] 1820 IF z4="" THEN GOTO 1780 E19A21 
1090 DATA %x 1@1a01B1 LB9CC1 1830 
1108 DATA %x B110Q110 L9ABCI 
111@ DATA &x Q110011@ CBEBEI 
112@ DATA &x @1100110 L42C8] 1840 
1130 DATA &x 91100118 LF&C2] 1850 
1149 DATA %x 91100118 Eancaı . 
115@ DATA %x @Q111120 L22C. 
1160 DATA %x auaaanan 15808] 1868 CLS#1:CLS#2: EBDAB] 
TEBBQJ 187@ PRINT#2,"CTRL IILCTRL IILCTRL IC 
TRL II CETRL_IICCTRL IILCTRL II CCTRL 
3312 SPACEIDAS PROGRAMM KANN MIT 
— 100921 SOTO 1460 WIEDER GESTARTET WERDEN(C 
1198 REM »* EINGABEN [7B681 TRL 33136 SPACEIOHNE DASS DATENI2 S 
1208 REM PACE}VERLOREN GEHEN !!" L617C1 
1888 END [82098] 
154841 1898 REM-— 
121@ CLS#2 CADS6I 
1228 INPUT#1,"{CTRL J2{5 SPACEWieviele [56A21 
Iberweisungen wollen Sie schreiben 19@® REM ** ZEILEN L\SCHEN ** [DSacı 
723 SPACE) ( max. 1@) (5 SPACE)" ,i CBF4EI 
123@ GOSUB 2050 C5BFAI 
1248 FOR a=1 10 i Ezaizı 
125@ GOSUB 1898 [q T " 
126@ PRINT #1,"{CTRL JI{CTRL J{19 SPACE Listing. »Druckprogramm für Banküberweisungen« 


PPYM y 
nn ai 12 


u - 


1928 
1938 
1948 
1950 
1768 
1978 
1988 
1998 
2008 
2010 
2020 
2030 
2040 
2050 


14,8: PRINT 
14,9: PRINT 
56,9: PRINT 
14,11: PRINT 
3@,11:PRINT 
14,14: PRINT 
14,15: PRINT 
14,16: PRINT 
54,15: PRINT 
14,18: PRINT 
3@,18: PRINT 
32,20: PRINT 


SPACE$ (48) 
SPACE$ (40) 
SPACE$ (12) 
SPACE$ (15) 
SPACE (38) 
SPACE$ (38) 
SPACE$ (38) 
SPACE$ (38) 
SPACE$ (14) 
SPACES (15) 
SPACE (38) 
SPACES (10) 


LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 


2068 
2078 


MASKE »=- 


2080 
2098 
2108 
2118 
212@ 
2130 
2140 
2158 
2168 
2178 
2188 
2190 
2200 
2210 


96.10:DRAW 543,1@ 
543,10:DRAW 543,342 
543,342:DRAW 96,342 
96,342: DRAW 96,18 
96,40: DRAW 543,40 
96,39:DRAW 543,39 
96,185:DRAW 543,105 
96,134:DRAW 543,134 
96,133:DRAW 210,133 
97,133:DRAW 97,104 
97,186:DRAW 218,106 
96,220: DRAW 543,220 
543,219:DRAW 417,219 
417,219:DRAW 417,136 


LE794] 
[E4B2] 
CDSB6] 
L6CC21 
17708] 
C2DD8] 
[D9IE4] 
L8DE8] 
L41EC] 
180041 
L2FC2] 
L7SCE] 
LA2B2] 
[918C1 


L368C1 
L65CAI 


[68761 
L61DC] 
[53A8] 
LE1AEI 
CDB26] 
[56DE1 
LAF@B] 
LSCAAI 
ESCB4]1 
CSCABI 
LE45A] 
[23A6] 
LC4ACI 
[97161 
CF114] 


2220 415,220:DRAW 415,134 LBAFA] 
223@ MOVE 417,136:DRAW 543,136 CAs141 
224@ MOVE 96,247:DRAW 543,247 [38081 
225@ MOVE 227,247:DRAW 227,220 LAS@EI 
226@ MOVE 428,247:DRAW 428,295 L9A34] 
2278 MOVE 543,295:DRAW 96,295 CA2DAJ 
228@ MOVE 246,75:DRAW 331,75 [585C1 
2298 Eu 7° LAC761 
2308 
LE988] 
231B REM «BESCHRIFTUNG «** L43AC1 
232@ 
- ED18C9 
233® LOCATE 27,24:PRINT "Bitte nicht bes 
chriften" 159821 
234® LOCATE 35,22:PRINT "Datum" ESBBEI 
235@ LOCATE 49,22:PRINT "Unterschrift" LASD6J 
236@ LOCATE 14,17:PRINT "Konto Nr" [5444] 
237® LOCATE 35,17:PRINT "Auftraggeber" L[@D741 
238® LOCATE 14,13: PRINT "Verwendungszwec 
k (nur f}r Empf {nger)" 124561 
2398 LOCATE 59,12: PRINT "D M" [893E] 
24@@ LOCATE 14,1@:PRINT "Konto Empf{nger 
= EFB6A] 
2418 LOCATE 31,1@:PRINT "bei ?" C4BD41 
242@ LOCATE 48,10: PRINT "o.e.a. Konto" L[9BBCI 
2438 LOCATE 14,7:PRINT "Empf {nger (genaue 
Anschrift) LD8921 
2448 LOCATE 56,7:PRINT "Bankleitzahl" CA1281 
245® LOCATE 38,5:PRINT " JBERWEISUNGSAUFT 
RAG" L82CE] 
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(Schluß) 


Dr. P Albrecht Dr. P. Albrecht 


MULTIPLAN für den 

Schneider CPC 

September 1985, 226 Seiten 
MULTIPLAN wurde ursprünglich für das 
16-Bit-Botriebssystem MS-DOS ont 
wickelt. Inzwischen lat aber auch die in 
diesem Buch beschriebene CPIM- 
Version für den Schneider CPC auf dem 
Markt, die den vollen Leistungsumtang 
dor 16-Bit-Version anna. 

Das vorliegende Buch soll eine prakti- 
sche Einführung in den Umgang mit 
MULTIPLAN auf dem Schneider CPC 
‚geben. Anhand von praxisnahen Bei 
spielen werden alle Befehle und Funk- 
onen in der Reihenfolge bechrieben, 
die der Arbeit in der Praxis entspricht 
Boreits nach Abschluß des ers 

tels worden Sie in der Lage sein. 

kleine MULTIPLAN-Anwendungen zu 
realisieren. Ein Merkmal von. MULTI- 
PLAN ist, daß Kalkulationen schnell und 
einfach erstellt werden können. 


Bost.-Nr. MT 837 
ISBN 3-89090-188-3 


dBASE II für den Schneider CPC 
September 1985, 280 Selten 

Das vorliegende Buch gibt nach einer 
kurzen Einführung in den Komplex 
»Datenbanken« eine Anleitung für den 
praktischen Umgang mit dBASE Il. 
Schon nach Beherrschung weniger 
Befehle ist der Anwender in der Lage, 
Dateien zu erstellen, mit Informationen 
zu laden und auszuwerten. Dabei hilft 
ihm ein Integrierter Reportgenerator, 
derim Dialog mit dem Benutzer Berichte 
gestaltet und In Tabellentorm ausdruckt. 


DM 49; 


Schneider CPC 
Grafik- 
Programmierung 


© Straush 

Schneider CPC 
Grafik-Programmierung 

Dezember 1985, ca. 300 Seiten 
Dieses Buch wendet sichan ie Schnek- 
der CPC-Bosizer. die alas Ober die 
Grafitahigkeiten Ihres Computer wis 
sen wolen. Es Diele onen umlassen- 
den Überbick über die verschiedenen 
Anwendungsbereiche. dar_Grafkpro 
Orummierung: zwet- und Grekdmena- 
Aale Dagrammdarsielungen. Deiniton 
Und Bewegung von Spries Entwurfvon 
YTgraiken oder den Einsatz der Grafik 
Dei der Unterstützung anderer Pro- 
gramme, 

Best-Nr. MT 782 

ısan 3590901624 DM 


Markt & Technik-Fachbücher erhalten Sie bei Ihrem Buchhändler. 


Markt&fechnik 


BUCHVERLAG 


an Pas Stade 2. 8013 Haar bi Mönchen 


J. Höckstädt 
Der Schneider CPC 6128 
‚September 1985, 273 Selten 


Dieses Buch ist für jeden CPC 6128- 
Besitzer eine wertvolle Hie, die viel 
fachen Möglichkeiten dieses bisher ein 
maligen Computers kennenzulernen 
undanzuwenden. Der Gomputemeuling, 
wird Schritt für Schrit in den Umgang 
mit dem Computer und die BASIC-Pro- 
grammierung eingeführt, bis or alla not- 
wendigen Kenntnisse bositzt, die man- 
cher Profi bereits mitbringt. Aber an die 
ser Stele wird das Programmieren mit 
dem CPC 6128 erst Interessant, näm- 
lich dann, wenn es darum gehl, eine 
eigene Dateiverwallung aufzubauer 
oder Grafik und Sound zu programmle- 
ron 
Weiterhin ertahren Sie alles über CPIM 
Plusauf dem GPC 6128, dem universe 
ien Betriebssystem für die größte Soft- 
warebibliothek der Welt. Dadurch ste- 
han Ihnen zusätzliche ungeahnte Mög- 
lchkeiten zur Verfügung. 
© Ein unentbehrliches Lehrbuch und 
Nachschlagewerk für jeden, der mit 
dem CPC 6128 arbeitet. 

DM 46,- 


Bost-Nr. MT 849 
ISBN 3-89090-192-1 


Anwendungs-Listing 


Nebenkosten 
einfach 
| abgerechnet 


Auch Hausbesitzern kann 
der Schneider-Computer 
eine Hilfe bei unangeneh- 
men Arbeiten sein. Bei- 
spielsweise bei der jährlichen 
Nebenkostenabrechnung. 


Mit diesem Basic-Listing können Sie die Nebenkosten- 
abrechnung für Ihre Mieter sehr einfach und schnell erstellen. 
‚Alle benötigten Daten werden vom Programm angefordert und 
automatisch auf die einzelnen Parteien umgelegt. Die Rech- 
nung kann auf jedem Drucker ausgegeben werden. 

Da die Schneider-Computer vom Betriebssystem her keine 
Abfrage machen, ob ein Drucker angeschlossen ist, darf das 
Programm ohne Ausgabegerät nicht laufen. Es würde sich 
»aufhängen«. 


Henssosssssenenn nannte nrnsn er ereennenrenrnenenenre 
JAHRESABRECHNUNG DER NEBENKOSTEN 
ELSE TETTETTETTPTPULPRLELDPPPRLLPTEPLUPLLTTELFEFPLREFEFFPEFRRRN 


Hamburg 28, den 02.02.1984 
Manfred Hausmeyer 
2 


w Str. ı 
ZUG Hamburg 12 


NEBENKOSTENABRECHNUNG FUER DAS JAHR 1985 
x 


ABWASSER, BELEUCHTUNG, WASSER INSGESAMT © 1m om 
DAVON FUER IHRE WOHNUNG ANTEILIG 2 292.91 om 
EINE EVENTUELL KUERZERE MIETPERIODE WURDE 

BERUECKSICHTIGT. 

ZUZUEGLICH PAUSCHAL FUER 2 PERSONEN 2 2a0 om 
MUELLABFUHR » 120 om 
ABZUEGLICH VORAUSZAHLUNGEN u -608 om 
ZUZUEGLICH SONSTIGES. ®  azı.ı2 om 
DIE, VON IHNEN SOMIT ZU LEISTENDE NACHZAHLUNG RE 


BITTE ZAHLEN SIE DIESEN BETRAG BIS ZUM 15.03. 1986 
AUF UNSER UNTENSTEHENDES KONTO EIN. 

BIS _ZU DIESEN TAG KOENNEN AUCH DIE BERECHNUNGS- 
UNTERLAGEN EINGESEHEN WERDEN. 


BLZ; all an ıı 


MIT FREUNDLICHEN GRUESSEN 


Manfred Hausmeyer 


So kann im nächsten Jahr 
Ihre Nebenkostenabrechnung auch aussehen 


(Denis Wetzel) 
10 MODE 2: INK @,®:BORDER @: INK 1,18 120141 308 PRINT 161801 
2@ FOR I=1 TO B&:PRINT CHR#(154)52NEXT I 31@ LOCATE 1,9: INPUT"Abrechnung fuer das 
LOBF6] Jahr : "as 15D2C9 
3@ LOCATE 3,1:PRINT" Hausverwaltung(9 SP 320 IF as=""THEN 300 EFE9BI 
ACEILCTRL X HAUPTMENUE {CIR 338 LOCATE 1,125 INPUT"Name/Firma/Vermiet 
L X (9 SPACE) (C) 1985 SOFTWARE PRODUCT er : "v$ ta8181 
Ss" [564E1 THEN 330 EB78CI 
40 FOR I=1 TO 8@:PRINT CHR#(154) 5:NEXT I 350 LOCATE 1,12: INPUT"Strasse, Hausnumme 
[BEFAI 712 SPACE): ";L# LFAFZI 

58 LOCATE 26,7: PRINT"CCTRL X 1 {CTRL X 36® IF L$=""THEN 350 [8988] 
Informationen" L6B9A1 37@ LOCATE 1,12: INPUT"P1z{18 SPACEI: "zu 

&0 LOCATE 26,9: PRINT"{CTRL X? 2 {CTRL X $ La&C81 
Maske allgemein" ED46E1 38@ IF Us=""THEN 370 1599A] 

7@ LOCATE 26,11: PRINT"CTRL X 3 {CTRL X 39@ LOCATE 1,12: INPUT"Ortt1B SPACE}: "50 

} Maske Mieter" LF7341 RATE LBS@AI 

80 LOCATE 26,13: PRINT"CCTRL X 4 {CTRL X 400 IF ORT$=""THEN 390 tecpa] 
> Nebenkostenabrechnung drucken" LA4981 418 LOCATE 1,12: INPUT"Bank(17 SPACE): 

90 LOCATE 26,15: PRINT"CCTRL X} E {CTRL X vs t2F121 
+ Programm-Ende" [3852] 420 IF Y$=""THEN 41@ LA28E 1 

100 ee$=INKEY$: IF ees=""THEN 100 LFF7@I 430 LOCATE 1,12: INPUT"Kontonummer {18 SPA 

118 INSTR (1,"1234eE",ees): IF ee=@ TH CEI: ";x$ LA39A] 
EN 100 tAB121 440 IF X$=""THEN 430 £D6941 

120 ON ee G0TO 1530, 140,670,930,1670 [7098] 450 LOCATE 1,12: INPUT"Bankleihzahl(9 SPA 

130 ON ERROR G0TO 148 [B6121 CEI: ";D$ 168921 

140 CLS [752E1 458 IE ,DE=""THEn asa [40741 

15@ REM [50341 RINT EDAY@] 

16@ REM hausverwaltung 1.1 [3406] 480 PRINT"NEBENKOSTEN FUER: " L16AAJ 

170 REM IDEE FUER C 64 Dr. 490 PRINT [B8941 

GUENTER MERSSON L6F621 50@ LOCATE 1,16: INPUT"WASSER : ";B [D996] 

180 REM 518 PRINT LECB6] 
2 C6FSAI 520 PRINT EFF88] 

198 REM VERSION 1.1 fuer Schneider CPC 4 539 LOCATE 1,16: INPUTABWASSER: 
64/664/6128: C2@B@J ";D 15526] 

208 REM by SOFTWARE PRODUCTS Ltd.- SOFTW 548 LÖCATE 1,16: INPUT"BELEUCHTU 
AREPROBLEMLOESUNGEN FUER CPC 464/664 NG: ";E C49A21 
/6128 L7@E@1 [64BAl 

21@ REM c/o Denis Wetzel [33CCJ [6390] 

220 REM Am Holzplatz 1 ECOSE] : 

230 REM 6730 Neustadt/Weinstrasse EFSAEI LAAB6I 

240 REM Lac34] 588 IF I=® THEN PRINT CHR$(24) ;PRINT"——> 

250 FOR i=1 TO 8@:PRINT CHR$(154);5:NEXT L[66CEI SIE HABEN KEINE ANGABEN GEMACHT <-— 

260 FRINT" Hausverwaltung(4 SPACE} {CTRL "zPRINT CHR$(24):FOR n=1 TO S@@@:NEX 
YMASKE-ALLGEMELIN {CT T:60T0 1@ [849C1 
RL_X2{3 SPACE? (C)1985 SOFTWARE PRODU 598 PRINT"Verteilerschluessel nach Punkt 
CTS" [3598] en," LCBCEI 

270 FOR i=1 TO B@:FRINT CHR$(154)5:NEXT [38021 6@@ LOCATE 1,20: INPUT"Gesamtpunkte fuer 

280 PRINT [ESBE] das Haus LIFS6] 

290 LOGATE 10,S3PRINT"--> BITTE ALLE EIN 
GABEN MIT'DER LENTERI-TASTE ABSCHLIE 
SSEN <-—" L77F41 Listing. »Nebenkostenabrechnung« 


rn el % 


Lan Pr. ein. ee a En re u u... u Taler. 


Anwendungs-isting 


’ 618 IF H=® OR H<@ THEN 680 13C6RJ 1260 PRINT #8, "GUTHABEN AUS EINBEHALTEN 
. 620 PRINT C@SeA] ER SICHERHEIT BETRAEGT(3 SPACE): (3 
- 630 INPUT"Heutiges Datum : ";F$ L420A3 SPACE} "N"DM":PRINT #8 LCEB&] 
‚ 640 PRINT TE7BEI 127@ IF E=@ THEN 1308 EIaFc9 
6&5@ INPUT"Eventuelle Nachzahlung des Nie 1288 PRINT #8, "ZUZUEGLICH SONSTIGESC29 
2 ters bis zum : "508 198241 SPACE): (3 SPACE) "E"DM" 113881 
660 G0TO 18 L7FECI 1298 PRINT #8: PRINT #8 [L766C1 
4 870 CLS [723E1 1380 IF Q>@ THEN 1328 [S1QEI 
E 688 FOR i=1 TO 8@:PRINT CHR$(154);5:NEXT LSDDCI 131@ IF 0<® THEN 1450 [24181 
> 698 PRINT“ Hausverwaltung{7 SPACE} {CTRL 1320 PRINT #8, "DIE VON IHNEN SOMIT ZU L 
X MASKE-MIETER (CIRL XIC EISTENDE NACHZAHLUNG" LBBBB] 
& SPACE) (C) 1985 SOFTWARE PRODUCTS" L27DC1 1330 PRINT #8, "BETRAEGT(41 SPACE}: {2 SP 
700 FOR i=1 TO 80: PRINT CHR$(154);:NEXT LAFCEI ACE)"Q"DM 14214] 
71® LOCATE 1,7: INPUT"Name des Mieters : 1348 PRINT #8, "(53 SPACI [8596] 
$| kr ” [78DE] 135@ PRINT #8:PRINT #8, "BITTE ZAHLEN SI 
720 ı [SF763 E DIESEN BETRAG BIS ZUM " 0s " LS@B41 
73® LOCATE 1,9: INPUT"Strasse, Hausnummer 136@ PRINT #8,"AUF UNSER UNTENSTEHENDES 
2 "358 CA4791 KONTO EIN." caz1aı 
74Q IF S$=""THEN 730 ECD96J 137@ PRINT #8, "BIS ZU DIESEM TAG KOENNE 
75® LOCATE 1,11: INPUT"Plz, Ort : ";T$  L9DBAI N AUCH DIE BERECHNUNGS- (33 SPACEIUN 
760 IF T#=""THEN 750 135A@J TERLAGEN EINGESEHEN WERDEN. " LE7101 
77® LOCATE 1,13: INPUT"Auf den Mieter ent 1380 PRINT #8:PRINT #8 LEF&CI 
| fallende Punkte :_";J tca2c3 1398 PRINT #8, "BANK: "Y# L6DF@I 
v 780 IF J=® THEN G0TO 778 EF9163 1490 PRINT #8, "KTO. [45D41 
1 790 LOCATE 1,15: PRINT"Berechnungsgrundla 141@ PRINT #8, "BLZ: "D+ 1B150J 
ge: Mietzeit 12 Monate" LAUTE] 1420 G0TO 1498 [8310] 
| 808 LOCATE 1,17: INPUT"Kuerzere Mietzeit 1439 0=-0 [2EEBI 
(in Monaten) : ";P [B1B41 1448 PRINT #8, "IHR GUTHABEN BETREAGT SO 
| 81@ IF P=® THEN P=12 tF108) MIT(22 SPACE}: (2 SPACE) "Q"DM" 15498] 
820 LOCATE 1,19: INPUT"Pauschalbetrag fue 1450 PRINT #8, "(53 SPACE)====an=" TABFAI 
r_ 2 Personen : ";R 134443 1460 PRINT #8, "DER BETRAG WIRD IHNEN IN 
830 LOCATE 1,21: INPUT"sonstigest3 SPACE) DEN NAECHSTEN TAGEN AUF (32 SPACEII 
NE L&BFAJ HR KONTO UEBERWIESEN. " LE64EI 
840 LOCÄTE 1,21: INPUT"Muellabfuhr : ";L [9384] 147@ PRINT #8, "BIS ZUM " O$ " KOENNEN D 
850 LOCATE 1,21: INPUT"geleistete Vorausz IE BERECHNUNGS- 194609 
ahlung :"";M (51521 148@ PRINT #8, "UNTERLAGEN EINGESEHEN WE 
ig 860 M=-M 1C284) RDEN. “ c48101 
E- 87@ LOCATE 1,23: INPUT"einbehaltene Siche 1499 PRINT #8 C9AECI 
3 rheit = "5N LFZECI 1500 PRINT #8:PRINT #8, "MIT FREUNDLICHE 
! 880 N=-N EcDacı N_GRUESSEN" LC49A] 
| 89® K=G/HrJ#P/12 LEBE) 151@ PRINT #8:PRINT #8, V# LFBEE] 
> 908 K=INT (K#100+0.555) /100 166063 1528 6010 ı8 15444] 
F1D O=K+L+E+HRANMEN 3808) 1530 MODE 2: INK @,@:BORDER @:INK 1,18 _ L@BEA] 
5 920 GOSUB 18 172781 154@ FOR i=1 TO B0:PRINT CHR$(154) 5 :NEXT 
Br 930 LOCATE 26,23:PRINT" (CTRL X) DRUCKER 138341 
BEREIT J/N {CTRL X3" 173841 1550 PRINT" Hausverwaltung(& SPACE) {CTRL 
Ir 948 tt$=INKEY$: IF tt$=""THEN 940 [5A18] 2 INFORMATIONEN (CIRL 
950 IF UPPER$(ttF)="J" THEN 970 LOFABI X215 SPACE) (C) 1985 SOFTWARE PRODUC 
960 IF UPPER$(tt#)="N" THEN 18 [7834] 15" C9DDEI 
970 PRINT CHR$ (24) :LOCATE 26,23:PRINT" A 1568 FOR i=1 TO B@:PRINT CHR#(154);:NEXT 
BRECHNUNG WIRD GEDRUCKT - BITTE WART 14A381 
n EN ":PRINT CHR$(24) LF838J 1578 LOCATE 5,6:PRINT"CTRL_%) a {CTI 
98@ FRINT #8, CHR$() C422E1 7 ALLGEMEINES" :LOCATE 5,7:PRINT 
E 990 PRINT #B, "rrnnnn Programm Hausverwaltung i 
E EREDEELTEETUPPRUUERHUPEPEEULEEPELFEFG ter Linie fuer Vermieter ge: 
"PRINT #8," 1797 SP n. Sie koennen so bequem die 
ACEI "PRINT #8, "JAHRESABRECHNUNG DE ostenabrechnungen fuer ihre Mieter 
f R_NEBENKOSTEN" LFAsAI erstellen 195B21 
100® PRINT #8, "(79 SPACEI" 132823 158@ LOCATE 5,9:PRINT"Es bietet jedoch a 
1010 PRINT #8, "nn uch fuer Mieter eine Kontrolle zum 
PEFPLLETEETFPPPPEUEEEFEEeEr er Pre eG UVeberpruefen ihrer Neben - kostenab 
PPPPFPPPPEUEREFPP HEIL L4BEQI rechnung." LF4261 
r 1020 PRINT #8, "(37 SPACE}"ORTS", den "F 1598 LOCATE 2,14: PRINT" (CTRL X) b_CCTRL 
$:PRINT #8, V* LaA1al x) EINGABE VON WERTEN" :LOCATE 5,15: 
1939 PRINT #8, L$:PRINT #8, Us" "ORT$:PR PRINT"Sie muessen zuerst Menuepunkt 
INT #8 L95DC1 2 waehlen, um allgemeingueltige We 
1040 PRINT #8 L96DA1 rte (Werte, die fuer jeden Mieter 6 
4 105@ PRINT #8, "HERRN/FRAU/FIRMA" [B2F@J ueltigkeit haben) einzugeben. Jede 
1060 PRINT #8, G$ EBF4C] Eingabe muss mit [ENTERI(2 SPACE)be 
1070 PRINT #8, Ss [4366] staetigt werden.“ LI6FC9 
1Q80 PRINT #8, T% [766A] 1608 LOCATE 28,18: PRINT"Nach der Eingat 
1090 PRINT #B:PRINT #8:PRINT #8:PRINT #8 kommen Sie wieder zum Hauptmenue. 
», "NEBENKOSTENABRECHNUNG FUER DAS J 1209€1 
E ÄHR "As LF6EAI 161@ LOCATE 5,18:PRINT"Danach waehlen Si 
5 1188 PRINT #8:PRINT #8, "KOSTENAU @ Menuepunkt 3 an, um nun Werte fue 
FSTELLUNG CBBB41 r einen Mieter einzugeben. (2 SPACE) 
5% 1118 PRINT HB," Haben Sie alle Werte eingegeben, ko 
Pe 181991 mmen Sie wieder zum Hauptmenue, wo 
Fe 1128 PRINT #8 CADDBJ Sie mit 11548] 
} 113@ PRINT #8, "ABWASSER, BELEUCHTUNG, W 1628 LOCATE 5,28: PRINT"Menuepunkt 4 eine 
ASSER INSGESAMT{1B SPACE): (2 SPALEI n Ausdruck der Abrechnung des gerad 
"G"DM" 15632] @ eingegebenen Mieters er-(2 SPACE) 
1148 PRINT #8 LA9DCI halten. Danach erscheint wieder das 
115@ PRINT #8, "DAVON FUER IHRE WOHNUNG Hauptmenue und Sie koennen die Dat 
| ANTEILIG{17 SPACEI:(2 SPACEI"K"DM" LBBFCI en fuer (5 SPACE)den naechsten Miete 
z 1168 PRINT #8 [ESE@] r eingeben (Punkt 3) und Sie drucke 
E 1170 PRINT #8, "EINE EVENTUELL KUERZERE n_(Punkt 4)." LBS7EI 
MIETPERIÖDE WURDE(39 SPACE) BERUECKS 1638 LOCATE 1,25:PRINT"{CTRL X LENTERI- 
ICHTIGT." LEFDEI Taste drüecken (CTRL_ X)" CB2ACI 
k 118@ PRINT #8 CB1E4] 1648 aas=INKEY$: IF aa$=""THEN 1640 146381 
1190 IF R=® THEN 1218 [4B18] 1658 IF UPPER$(aa$)="M"THEN 18 [10083 
4 12@@ PRINT #8, "ZUZUEGLICH PAUSCHAL FUER 166@ GOTO 18 [304E1 
2 PERSONEN{14 SPACE): {2 SPACEI"R"D 167@ LOCATE 26,23: PRINT"CTRL X) ENDE 3/ 
M"zPRINT #8 L3DBEI N ECTRL X3" 1697A] 
121@ IF L=® THEN 1238 cace21 1688 fes=INKEY$: IF fes=""THEN 1688 LFB&CH 
122® PRINT #8, "MUELLABFUHR{S® SPACE): {2 1690 IF UPPER$ (fe$)="J"THEN 1720 L31E6] 
SPACE} "L"DM" PRINT #8 172A21 1708 IF UPPER$ (fe$)="N"THEN 18 CBBOCI 
4 1238 IF M=@ THEN 1258 1120C3 1718 END [EEBB] 
Bi, 1240 PRINT #8, "ABZUEGLICH VORAUSZAHLUNG 1720 MODE 1:INK @,1:BORDER 1:INK 1,24: C 
EN{23 SPÄCEI: (2 SPACEI"M"DM" PRINT ALL &BB@Q:CALL &BEO EDFC21 
*3 LEaBEI 
1250 IF N=® THEN 127@ £D4161 Listing. »Nebenkostenabrechnung« (Schluß) 
f 3 E 


Der Fall 
»Famit AG« 


Sind Sie einem großen Wirt- 
schaftsverbrechen auf der 
Spur oder handelt es sich 
nur um persönliche Rache- 
gefühle wie bei Dallas. Diese und an- 
dere Fragen stellen sich in dem menü- 
gesteuerten Adventure »Famit AG«. 


‚Auf dem Gelände der »Famit AG« haben sich seltsame Dinge 
‚ereignet. Sie müssen Ihren freien Sonntag opfern, um den Ver- 
dächtigen vor der Flucht noch zu stellen. Sind die 2,3 Millionen 
Mark wirklich ein Lottogewinn? Wer ist der Schatz, dem Angela 
auf dem von Ihnen gefundenen Zettel ihre Liebe beschwört? 
Fragen über Fragen, die alle scheinbar zusammenhanglos im 
Raum stehen. Um den Fall zu klären, müssen Sie — wie Kom- 
missar Schimantzki — zu unorthodoxen Mitteln greifen. 

Eingefleischten Adventure-Freaks wird die Menüsteuerung 
des Programms zuerst ungewohnt sein. Aber seien Sie versi: 
chert, Sie haben so das Geschehen viel besser im Griff. Die 
‚Spielanleitung und die Aufgabe dieses Adventures wird wäh- 
rend des Ablaufs erklärt. Viel Spaß mit dem Fall »Famit AG«. 

(Jobst-Hinrich Jacke) 


Spiele-Listing 


12 REM — — 
ie L2AB2I 
20 REM- 
X 15648] 
3® REM- Die Akte "Famit AG" 
= CBBEAI 
40 REM- 
- CDE441 
s® REM- 1985 Copyright by 
- C8B5CJ 
60 REM- Jobst-Hinrich Jacke 
- L4E6CI 
70 REM- Hinrich Wragestr.16a 
= L@99E1 
80 REM- 2427 Malente 
- [8886] 
[524E] 
= LCAD2I 
11® DEFINT a-z 123283 
12@ MODE 2:INK @,@: INK 1,@:PAPER @:PEN 1 
:BORDER G:CLS CBSIEI 
130 GOSUB 2848 11548] 
148 raum=8: vmax=16:rmax=94: omax=123:bdma 
x=14:bmmax=6: imax=4: zmax=36@: bueronu 
mner $="4623519": safekomb$="23111985" 
:0k$="Okay !":foto=12:cmax=380: zug=1 
[BIBEI 


150 DIM verb$(vmax) ‚raums(rmax) ‚objekt$( 
omax) ‚objekt (omax) „bedingung (bdmax) , 
bemer kung$ (bmmax ) ‚richtung (rmax ,6) ‚r 
ichtung$ (6) ‚oy(16) ‚iy(&) ‚code(cmax) L[8DSC1 
ie sehen nichts beso 


108261 

So stark sind sie nic 
1549A] 

180 bemerkung$(5)="Wie stellen Sie sich 
das vor ?" CDD281 

19@ bemerkung$ (4)="Ihre Gedankeng(nge{2 

SPACE}sind leiderf}r di 

Computer zu kompli-ziert !" LE1B6] 
200 bemerkung$ (5)="Es sind zuviele !" 186181 

210 bemerkung$ (6)="Das ist nicht notwend 
ig." L3DF4] 
220 FÜR x=1 TO vmax LEB8@] 
238 READ verb$ (x) CECIAI 
240 NEXT [SBEAI 
250 FOR x=1 TO omax c54781 
260 READ ob jekt$(x) ‚objekt (x) EFCAB] 
27@ NEXT L&BF@] 


FOR x=1 TO rmax:READ raums (x) CCDB4] 
FOR y=1 TO &:READ richtung (x,y) 16514] 


300 
318 


320 
338 
348 


35@ 


368 


378 


388 


398 
428 
418 
420 


430 


448 


458 


468 


470 


578 
588 
578 
688 


NEXT=NEXT 

LOCATE 22,22:PRINT"{CTRL X) Bitte ir 
gendeine <Taste> dr)cken {CTRL X}":C 
ALL &BBB6 

MODE 2:PAPER @: INK 8,@:BORDER @:PEN 
1: INK 1,26:CL5 

LOCATE 3@,3:PRINT"Die AKTE 'Famit AB 


PRINT:PRINT STRING$ (88,218) :PRINT:PR 
INT"{4 SPACE)Sie sind Beanter der Kr 
iminalpolizei (2 SPACE)und werden im 
Laufe des Spiels mit(8 SPACE)einem w 
ichtigem Fall betraut . Es ist aller 
dings Eile geboten , denn der" 
PRINT"{4 SPÄCE)Verdichtige versucht 
zu fliehen . Sie m’ssen{2 SPACE)also 
Ihren{2 SPACE)Sonntag opfern{8 SPAC 
E)und sich auf den chen , ihn 
zu verhaften .{2 SPACE)Nat’rlich bra 
uchen Sie(B SPACE)daf)r Beweise ‚{2 


SPACE)die(2 SPACE)ISie selber finden 
m)ssen . haben S 
nur * 


PRINT"£4 SPACE)von 18 - 16 Uhr Zeit 
„(2 SPACE)Wenn Siet2 SPACE)um 16 Uhr 
noch nichts erreicht haben ‚(8 SPAC 
E}ist dem Verd(chtigem die Flucht no 
ch gegl)ckt .{2 SPACEISie werden{2 S 
FAcE>wthrend” der (8 SPACEIErMI TEL unge 
n nicht{2 SPACE)auf andere Personen 
sto“en, da es , wie oben gesagt," 
PRINT"{4 SPACESonntag ist „ und som 
it liegt(2 SPACE)das Gel(nde der 'Fa 
mit AG'{2 SPACE)verlassen da,(B SPAC 
E)bis auf eine Ausnahme!" 
PRINTZPRINT STRING$ (88,218) :PRINT:PR 
INT TAB(23);"{CTRL X) Bitte irgendei 
ne <Taste> dr)cken {CTRL X2" 
FOR x=1 TO &:READ richtung$ (x) :NEXT 
FOR x=1 TO cmax:READ code (x) :NEXT 
CALL &BBB& 
CLSELOCATE S@,SSPRINT"DIe AKTE 'Fami 
er 
PRINT:PRINT STRING$ (88,218) :PRINT"{4 
SPACE}Funktion der Bildschirmfenste 
r :{2 SPACE)oben links{& SPACE}: (4 5 
PACEIOrt":PRINT TAB(39):"halb oben 1 
inks :{4 SPACE}Ausg{nge":PRINT TAB(3 
9)z"unten links{5 SPACE): {4 SPACEIKO 
mmentar":PRINT TAB(39); "mittetil SPA 
CE): (4 SPACE}Verben": 
PRINT TAB(39):"oben rechts(5 SPACE): 
{4 SPACE}Gegenst {nde/Ausg {nge": PRINT 
TAB(359) ; "unten rechts(4 SPACE}: (4 S 
PACE} Inventur" 
PRINT=PRINT" {4 SPACEISteuerung{22 SP 
ACEI: (4 SPACE)" 5CHR$(24®) "(13 SPACE) 
(4 SPACE}Cursor nach oben":PRINT TA 
B(39);"£5 SPACE)" ;CHRE(241)"C1@ SPAC 
E):{4 SPACE)Cursor nach unten": 
PRINT TAB(39) 5 "<COPY>t1@ SP 
ACEI: {4 SPACE)Aus1 ‘sen der Funktion" 


PRINT“ (7 SPACE}Um bei {2 SPACE}einige 
n Verben (z.B. ‘untersuche’) vom{2 SP 
ACE}Fenster 'Gegenst (nde {13 SPACEIzu 
m{2 SPACE}Fenster ‘Inventur ” 
kehrt umzuschalten , m>s: 
14 SPACEIFunktionen {CTRL_X)(4 SPACE 
3" 3CHR$ (249) ;"(4 SPACE} {CTRL X) bzw. 
{ETRL_ X) 14 SPACE) "SCHRF(241):"14 SP 
ACEI {CTRL X) ausl'sen." 
PRINT STRING$ (88,218) :PRINT:PRINT TA 
B(23);"{CTRL X) Bitte irgendeine <Ta 
ete> dricken {CTRL X)"ICALL BBB6 
WINDOW #1,2,49,2,4:WINDOW #2,51,79,2 
‚17:WINDOW #5,2,49,6,7:WINDOW #4,34, 
49.9.24:WINDOW #5,51,79,19,24:WINDOW 
2,32,9,24:PEN #2,1:PAPER #2,8 
PLOT 4,8:DRAW 4,392:PLOT 3,8:DRAW >, 
392:DRAW 636,392:DRAW 636, 8:DRAW 637 
»392:DRAW 637 ,8:DRAW 4,8:PLOT 396,39 
2:DRAW 396,B: PLOT 395,392:DRAW 395,8 
:PLOT 4,280: DRAW 395,280: PLOT 4,328: 
DRAM 396,328:PLOT 395,120:DRAW 636,1 
PLOT 268,280:DRAW 260,8: PLOT 259,280 
:DRAW 259,8 
OR n=1 TO 16:PRINT #4," "sCHR$(144) 
" ";verb$(n):NEXT:G0TO 548 
FOR mas TO 7@@@: NEXT: PRINT:PRINTzzug 
=zug+ 
CLS:CLS#1:CLS#2: CLS#3:CLS#5 
LOCATE #1,1,2 
PRINT #1,"Sie sind "; 
PRINT #1 ,raums (raum) ;zPRINT #1, 
yi=ı 
FOR n=1 TO omax 
IF objekt (n)<>raum THEN 648 


Listing. Der Fall »Famit AG« 


LD2D61 


[B6C4J 
L9E92] 
[A672] 


£D7@21 


170181 


L66CA1 


LFEBEI 


L7FSA2 
[1904] 
LF2@81 
CA1@21 


L77AA1 


tE11A] 


L8SEB1 


1856AJ 


LF42A] . 


171083 
CBDSCI 


CA6261 


ECSIEI F 
(74041 
t4BD21 


[53961 
176041 
LF342] 
LEBECI 
C9BBBJ 
L7DAAI 
[32721 
LIFB6] 


= 


_ - Spiele-Listing 


sıa 


628 
638 


238 


668 
6780 


688 
690 
708 
zıa 
720 
730 


70 
758 


760 
770 


a8 


798 
808 


810 
820 


840 
850 


862 


878 
830 
898 
900 
918 
920 
730 
740 
9750 
960 


970 
980 


9 


1008 
1918 


1928 
1030 
19049 


1058 
19068 
1978 
19080 
1990 


1108 
111® 


1128 
1138 
1148 


1158 
1168 


nr 


PRINT #2," "zCHRF$(144);" "jobjektsin 
> 


oytyl)=n 
yl=yır 


BRINTR2," "SCHRE(149) 3" CCTRL ca 5 
PACEI "SCHR$ (241) 5"C4 SPACE) {CTRL XI" 


y2=2 
PRINT#S," "sCHRS(144):" {CTRL_XI14 S 
PACE) ";CHR$(24@) 5" (4 SPACEICCTRL X)" 


FOR n=1 TO omas 

IF objekt (n)<>-1 THEN 72@ 
PRINT #5," "sCHRE(144) 5" 
> 

iyty2)enıy2ey2+1 

NEXT 

PRINT #3,"Sie k'nnen nach "sıgedruck 
t 

FOR x=1_ TO 6 

IF richtung (raum,x)=@ THEN 798 ELSE 
jedruckt=-i 

F POS(#3)=17 THEN PRINT #3,richtung 
#(x)5:60T0 798 

IF POS(#3)+LEN (richtung$ (x))<48_THEN 
PRINT #3,", "srichtung# (x)3280T0 77 


8 

PRINT _#3,",":PRINT #3,richtung$(x)s: 
60T0 79@ 

NEXT 

IF gedruckt=@® THEN PRINT #3,"nirgend 
wo"; 

PRINT #3," gehen 
IF raum=17 objekt (27)=17 AND bed 
ingung (12)=@ THEN PRINT"Ihr Chef(2 S 
PACEIgibt{2 SPACE} Ihnent2 SPACE})den 
Auf-trag ,„ sich n{her{2 SPACE)mit de 
m FallFamit AG{2 SPACE)Izu{2 SPACE}be 
fassen{2 SPACE}und ihndanach zu info 
He N 
7I=-1:FOR t=1 TO 78B0:NEXT 

IF zug=4 AND raum=8 THEN PRINT"Das T 
elefon klingelt ." 

IF raum‘<>62 THEN ob jekt (129)=® 

IF zug>zmax THEN MODE 2:PRINT:PRINT" 
Sie k'nnen die Suche einstellen.Es i 
st zu spft !":LOCATE 22,1@:PRINT"Meh 
r Erfolg beim nichsten Mal '":END 

IF raum=42 OR raum=39 THEN PRINT"Vor 
und hinter{2 SPACE}Ihnen liegt je-w 
eils eine Fabrikhalle." 

IF raum=43 THEN PRINT"Vor Ihnen lieg 
t ein Geb{ude."” 

IF raum=47 THEN PRINT"Die T}r ftllt 
zu.Sie h'ren, da*ein Schl}ssel im Sc 
hlo* gedrehtwird. ":60T0 538 
PRINT:PRINT"Was m'chten Sie tun ?" 
ne 

LOCA #4.2,yy:PRINT #4,CHR$(144):L0 
CATE #4,2,y:PRINT #4,CHR$ (143) 

FOR n=1 TO 288:NEXT: IF INKEY(2)=@ TH 
EN yy=yıy=y+1 ELSE 958 

IF y>=16 THEN y=-1& 

6010 918 

A INKEY (8)=@ THEN yy=yiy=y-1 ELSE 9 
IF y<=1 THEN y=1 

6010 918 

IF INKEY(9)=@ THEN PRINT CHR$(Tssvy 
=y:LOCATE #4,2,y:PRINT#4,CHR$(144) 16 
0TO 998 ELSE 720 

FOR n=1 TO 3@@:NEXT:ON vv GOTO 1988. 
1128 112@,112®,1680,121@,112@,112@,1 
128, 1128.1120.2778, 1120, 1418, 1320,14 


CLS#2:CL5#S:nn=@: FOR n=1 TO 6 

IF richtung (raum,n)<>® THEN PRINT#2 

„" "ZCHR$ (144) 5" "srichtungs (n) ınn= 

An+leri (nn)=richtung (raum,n) 

NEXT 

yalsyy=i 

LOCATE #2,2,yy:PRINT #2,CHRF (144) :L 

OCATE #2,2,yzPRINT #2,CHR$ (143) 

ER a5 TO’ 200: NEXT: IF INKEY(2)=@ T 

vu=yiyay+l ELSE 1088 

IF y>=nn THEN yenn 

SOTo 1948 

IF INKEY(@)=@ THEN yyyıyey-1 ELSE 
N 

IF y<=1 THEN y=1 

SOoTo 1948 

IF INKEY(9)=@ THEN PRINT CHR$(TIser 

aumsri (y) PRINT ok$:G0T0 SS@:ELSE 1 

250 

yalzyysltoytyi)=@ 

LOCATE #2,2,yyzPRINT #2,CHR$(144):L 

OCATE #2,2,y: PRINT #2,CHR$ (143) 

FOR n=1 TO 2@@:NEXT=:IF INKEY(ZI=@ T 

HEN yy=yzy=y+1 ELSE 1178 

IF y>=yl_THEN yayi 

S0T0 1138 


"sobjektsin 


1178 IF INKEY(@)=® THEN yy=-y:y=-y-1 ELSE 


135561 
[D68C] 
LADAC] 
[74F2] 


L1EBA] 
E7CACI 


14892] 
£F1721 
{5E18] 
L415C] 
692041 
C6FF@] 


L76FA] 
[3882] 


LC3A4] 
LACBEI 


190041 


CSE@CI 
LAFFEI 


LBS2E] 
LFA423 


L6BC6I 


ESIF61 
[7382] 


L4AFBI 


LZEZEI 
LIFECI 


CED42] 
[2E341 
[B6741 


C11F4] 


L6A9B] 
EBDA4J 
[63681 


[7386] 
L67CE1 
C1366] 


185001 


193D8] 
13484] 


t@sEA1 
1D744) 
LIFCAI 


[BSSAJ 


LA23C3 
T2ECEI 
ESF@C] 


CAB28] 
13124] 
[52081 


LEB261 
CSBDE] 
144341 
LEASCI 


[3186] 
LASaCI 


1188 
1198 
1208 


1218 
122@ 


1238 
1248 
1258 
1268 
127@ 


1288 
1298 


1300 


1518 
1328 


1338 


1348 
1358 
1368 
1378 
1388 
1398 
1208 
1418 


1428 


1438 
1448 
1458 
1468 


1478 
1488 


1498 
1508 


1510 


1528 


1538 
1548 


1558 


1568 


1578 


1580 
1598 


Listing. Der Fall »Famit AG« (Fortsetzung) 


1208 

IF y<=1_THEN y=1 

GOTO 1138 

IF INKEY(9)<>® THEN 114® ELSE PRINT 
CHR& (7) s10=0y(y)sIF_(vy=8B OR vysil 
JAND oyty)=® THEN 1138 ELSE IF oy(y 
=® THEN LOCATE #2,2,vsPRINT #2,CHR 

$(144):60T0 121@ ELSE 1308 

yalıyy=i 

LOCATE #5,2,yy:PRINT #5,CHR$ (144) ıL 

OCATE #5,2,yzPRINT #5,CHR$ (143) 

FOR n=1 TO 2@@:NEXT+:IF INKEY(2)=@ T 

HEN yy=yıy=y+1 ELSE 1268 

IF y>=y2-1 THEN yey2-1 

S0TO 1228 

IF INKEY(@)=@ THEN yy=yıy=y-1 ELSE 
1298 

IF y<=1_THEN y=1 

S0TO 1220 

IF INKEY(9)<>® THEN 123® ELSE PRINT 
CHRE(7)tzo=iyty)zIF vy=6 AND y-i T 

HEN 122® ELSE IF v=! THEN LOCATE #5 
„2,viPRINT #5,CHR#(144)G0T0 112@ E 

ISE 1398 

ON _vy GOSUB 980, 1588, 1590, 1430, 168@ 
‚«1718,1748, 1830, 1910, 2080,272@,277@ 
ı281@ 

&0TO 53@ 

PRINT"Bitte REC & PLAY dr)cken":PRI 
NT"Unter welchem Namen speichern"z1 

NPUT eingabes 

IF LEN(eingabe$) >16 THEN PRINT"Bitt 

e etwas kirzer '":G0T0 1320 ELSE ei 
ngabes="!"+eingabes:OPENDUT eingabe 

* 

PRINT#9 ‚raum: PRINT#9 ‚zug: PRINT#9, fo 

to 

FOR x=1 TO omax 

PRINT#9 ‚ob jekt (x) 

NEXT 

FOR x=1 TO rmax:FOR y=1 TO &:PRINT# 
9,richtung (x ,y) zNEXT=NEXT 

FOR x=1 TO bdmax: PRINT#7,bedingung ( 
x) zNEXT 

CLOSEOUT:PRINT ok$:60T0 538 

PRINT"Bitte Cassette zur}ckspulen u 

ndPLAY dr}cken":PRINT"Welches Spiel 
laden ": INPUT eingabes 

IF LENteingabe$)>16 THEN PRINT"Da 
kann nicht sein !":60T0 141® ELSE e 
ingabe$="!"+eingabe$:OPENIN eingabe 
E23 

INPUT#9 ‚raum: INPUT#9 ‚zug: INPUT#9, fo 
to 

FOR x=1 TO omax: INPUT#9,objekt (x) :N 
EXT 

FOR x=1 TO rmax:FOR y=1_ TO 6: INPUT# 
9,richtung (x,y) :NEXT:NEXT 

FÜR x=1 TO bdmax: INPUT#9 .bedingung ( 


x):NEXT 
CLOSEIN:PRINT ok$:60T0 538 
Ti IT" + 
En = 


gcbein'n 
NEXT 
IF 0=9 AND zug=4 THEN PRINT"Ihrt2 S 
PACE}Chef ist(2 SPACE)am Telefon . 
Siesollen sofort zu ihm kommen. ":ob 
jekt (27)=17:60T0 538 
IF 0=57 AND bedingung (2)=@ THEN PRI 
NT"Eine rote Lampe leuchtet auf .": 
bedingung (2)=-1:60T0 538 
IF 0=57 AND bedingung (2)=-1 THEN PR 
INT"Die Lampe geht aus .":bedingung 
(2)=®: 5010 538 
IF o=61 AND bedingung (5) AND beding 
ung(2) THEN 1548 ELSE 1558 
PRINT"Der Computer arbeitet. "zCALL 
SBB®6:PRINT"Auf dem Bildschirm ersc 
heint:":PRINT"Ausgaben 1984(2 SPACE 
3: 15.245.765 DM":PRINT"Einnahmen 1 
984 : 19.639.487 DM":PRINT"gesamt (9 
SPACE): +2.136.012 DM“:FOR n=1_TO 
4900: NEXT: bedingung (8)=-1:160T0 538 
IF 0-61 AND bedingung (5)-@ AND bedi 
ngung (2)=-1 THEN PRINT"Es passiert 
nichts .":G0T0 538 
IF 0=66 AND objekt (0)=55 THEN PRINT 
"Das Band beginnt zu laufen :"zCALL 
%BBQ6: PRINT"Hallo Max ; kommst Du 
morgen zuuns ? Benachrichtiget2 SPA 
CE)unst2 SPACE)dochbittet2 SPACE)Uun 
d bring(2 SPACE)das(2 SPACEIBeschen 
kmit! Bei uns ist alles beim Al-tem 
„":FOR n=1 TO AQQ@:NEXT:G0TO 538 
IF 0=9 OR 0-88 OR o=11@ OR o=113 OR 
0=56 THEN PRINT bemerkung$ (6) :G0TO 
53@ 
PRINT bemerkung$ (4) 6070 538 
IF o=1 AND objekt (1)=18 AND objekt ( 
13)=-1 AND bedingung (4)=-1 THEN rau 


[6F20] 
16824] 
[96121 


EDADAI 
CB9CAI 


[F852] 
L963C1 
[8382] 
18700] 
4832] 


14324] 
CAC12] 


£D3C8] 


13806] 
£[S7ACI 


cD4801 


C2F841 
LEDBCI 
[52DC1 
[858E1 
L1054] 
1A99@1 
CD61A1 
[1806] 


L725E1 


L797E1 
L27CE] 
120021 
175921 


LE21CI 
19912] 


194561 
«SBS5A] 


LEC&CI 


L61D8] 


L7EF6] 
18954] 


CABDEI 


LAEDEI 


t[8O8E2] 


1D4D21 
[855€] 


1608 
1618 


1628 
1630 


1648 
1650 


1668 


1670 
1688 


1698 
1700 
1718 


1720 


1730 
1740 


1758 
1768 


17780 


1788 


1790 


1818 


1820 
1838 
1848 


1858 
1868 


1878 
1888 


1898 


1900 
1910 


Spiele-Listing 


m=21:objekt (15)=@:PRINT ok$:60T0 53 


[) 

IF o=41 OR o=12 THEN PRINT bemerkun 
9*(3):60T0 530 

IF 0=46 AND raum=34 AND objekt (122) 
=34 THEN PRINT"Sie{2 SPACE}haben da 
s{2 SPACE)Schlo*{2 SPACE)der T)rabg 
eschraubt und k'nnen die Tirso 'f#fn 
en . Vor Ihnen liegt einGarten .":r 
ichtung (34,1)=35trichtung (35,2)=34: 
60T0 538 

PRINT bemerkung$ (4) :60T0 530 

IF foto<=® THEN PRINT"Der Film ist 

voll !":G0T0 538 

IF objekt (21)<>-1 THEN PRINT bemerk 
ung# (3):60T0 53® 

IF 0=82 AND objekt(21)=-1 THEN bedi 
ngung (6) =-1:foto=foto-1:PRINT ok#:G 
0To 530 

IF 0=93 AND objekt (21)=-1_THEN bedi 
ngung (7)=-1:#oto=foto-1:PRINT ok#:G 
0TO 530 

foto=foto-1:PRINT ok#:60T0 538 

IF (raum=36 OR raum=6i OR raum=64 0 
R raum=63 OR raum=65 ÜR raum=s6_OR 

raum=67) AND((zug>2@@ AND zug<220)0 
Rzug>25@ AND zug<27@)OR (zug>308 AN 
D zug<32@) THEN PRINT"Sie h’ren , 


da” jemand{2 SPACE}im Hausist.":S0T 
0 538 
IF raum=47 THEN PRINT"Sie h’ren ein 


himisches Lachen. ":G0T0 53® 
PRINT"Sie h'ren nichts besonde: 
:60T0 530 

IF 0=77 AND objekt (77)=-1 AND raum= 
53 THEN ob jekt (77) =53: bedingung (5) = 
-1:PRINT ok$:60T0 538 

IF objekt (o)=-1 THEN PRINT ok$iobje 
kt (o)=raum: GOTO 538 

PRINT bemerkungs$ (4) :G0T0 538 

IF o=5 THEN PRINT"Auf den Zettel st 

bueronummer +: G0TO_530 

TROLL BPHR SEYA "OR O=BS THEN PRINT 
bemerkung$ (1):60T0 538 

IF 0=33 THEN PRINT"Famit AG Elektro 
maschinen": PRINT"{4 SPACEI46334":60 
TO 530 

IF 0=36 THEN PRINT"Die deutsche Wir 
tschaft (5): Il-legale 
Elektronik-firma ?":PRI 
rd noch be: ! Jetztauch mit Sina 
tra_?"sPRINT"GlICK fir 8S-Jthrige : 
2.3 Mil-lion DM Lottogewinn !":FOR 
n=1 TO 3000: NEXT:60T0 53@ 

IF 0=25 THEN PRINT"Diet2 SPACEIFami 
t AG_, Industriestraved-12 , hat(2 
SPACEjeinige(2 SPACE)merkwirdigeGes 
chtfte abgeschlo“en.Die bis-herigen 
Ermittlungen haben nochzu keinem E 
rgebnis gef>hrt.":FOR n=1 TO ABQ0:N 
EXT:GOTO 530 

IF_o=68 THEN PRINT"Lieber Schatz !" 
tPRINT"Ich{Z SPACEIhoffet2 SPACEIDU 
riskierst(2 SPACE}nichtzuviel . Ho 
#fentlich(2 SPACE)kommst Dubald nac 
h_.":PRINT"Ich liebe Dich !":PRINT" 
{2 SPACE}Deine Anı :G0T0 530 
IF_o=64 THEN PRINT"Das Gesch{ft_}be 
r _542.30@DM ab-geschlo am 23.8 
85 ist durchgefhrt worden.Die stri 
kte Ge-heimhaltung ist gewihrleiste 
t.":G0TO 530 

IF 0=95 THEN PRINT"Es sind{2 SPACE) 
die Frachtpapiere({2 SPACE)f}r15 Kis 
ten Rihrger tte(2 SPACE)nach Be 
nt2 SPACEJund(2 SPACE)Jeine kleinere 
(2 SPACE}Kistenach Mayaguana. ": GOTO 
RRINT bemerkungs (4) :E0T0 538 

inv=: 

FOR x=1 TO omax:IF objekt (x)=-1 THE 
N inveinv+i 

NEXT 

IF inv>=4 THEN PRINT"Ich kann nicht 
mehr tragen .":60T0 530 

IF 0=77 AND objekt (0)<>-1_THEN obje 
kt (77)=-1:PRINT ok$:G0T0 538 

IF (o=18 OR o=11 OR o=13 OR o=18 OR 
o=21 OR 0=25 OR 0=34 OR 0=35 OR o= 
36 OR_0=43 OR_0=44 OR_o=45 DR 0=46 
OR 0=52 OR 0-51 OR_0=55 OR 0=64 OR 
o=68 OR 0=74 OR 0=76 OR o=81) AND o 
bjekt (0)<>-1 AND objekt (0)<>@ THEN 
objekt (0)=-1:PRINT ok$:50T0 538 

IF (o=5 OR o=84 OR 0=95 OR o=1@3 OR 
o=107 OR o=117) AND objekt (0)<>-1 
AND objekt (0)<>@ THEN objekt (o)=-1: 
PRINT ok$:G0T0 538 
PRINT bemerkung$ (2) :60T0 53@ 

EEBRL LAND! ERIMEE GESTEHEN Budin 
PRINT ok$:60710 53@ 
E/803 OR 0-6 OR 0-16 OR 0-17 THEN, 
PRINT"Die T}r ist schon of 


C@2581 
LABSCI 


159481 
LBES4] 


L8B6C] 
E15A8] 


[20561 


LO1SE] 
[BA12] 


[92381 
[20323 
L75A6] 


[D6F6] 


17B46] 
[D958) 


LD7461 
L929C] 


EDADCI 


CBD54] 


LOE4AI 


LBFE6I 


L7C581 


LF19@) 
14058] 
[B24C 


[3800] 
CSFSAI 


196441 
100761 


EF348] 


[EB64] 
119521 


115561 
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1940 


1950 


1968 
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2088 


2098 
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2138 
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2168 


2178 


2188 
2198 


2200 


2210 
2220 


Listing. Der Fall »I 


TO 538 

IF 0=7 OR 0=22 THEN PRINT"Die T}ren 
sind schon offen. ";60T0 538 

IF 0=58 AND richtung (46,3)=@ THEN P 
RINT"Sie haben die T}r ge'ffnet .": 
richtung (46,3)=33:60T0 SS®:ELSE IF 
0=58 AND richtung (46,3)=33 THEN PRI 
NT"Die T}r ist schon offen .":60T0 


538 
T}rt2 Se 


IF 0=59 THEN PRINT"Di 
ist verschlossen . Siehaben kei, 
2 SPACE)passenden Schl}s-sel . Er 
11”t{2 SPACE}sich allerdingsvon inn 
en ‘#fnen GOTO 538 

IF 0=76 AND objekt (187)=-1 AND bedi 
ngung (9)=@ THEN PRINT"Sie haben den 
Koffer ge‘ ffnet_.":bedingung (9)=-1 
:60T0 5SÖ;ELSE IF 0=76 AND objekt (1 


RR RP ohren n"rEo 
TO 538 


IF o=24 OR o=182 THEN PRINT"Die Sch 
ublade ist schon offen .":G60T0 5380 
IF 0=186 AND bedingung (3)=® AND obj 
ekt (1853)=-1 THEN bedingung (3)=-1:PR 
INT ok$:60T0 5380 
IF 0=186& AND bedingung (37=-1 THEN P 
RINT"Die Schublade ist schon offen 
.":60T0 538 
IF 0=35 AND raum=43 AND richtung (43 
‚1)=® THEN richtung (43,1)=74: PRINT 
ok$:G60T0 538 
IF 0=35_ AND raum=43 AND richtung (43 
‚„1)=74 THEN PRINT"Die T}r ist schon 
offen ":G0T0 530 
IF o=119 THEN PRINT"Sie{2 SPACEIK'n 
nen(2 SPACE)die Schubladet2 SPACEIz 
urZeit nicht "ffnen .":G0T0 538 
IF o=82 THEN INPUT"Geben Sie die Za 
hlenkombination ein "jeingabekomb$: 
IF eingabekomb$=safekomb$ THEN PRIN 
T"Est2 SPACE}war diet2 SPACE}richti 
ge Kombinat-ion. Der Safe ist jetzt 
offen. ":bedingung (13)=-1:60T0 530 
ELSE PRINT"Die Kombination ist fals 
ch .":60T0 530 
IF 0=118 AND richtung (60,3)=® THEN 
PRINT"Sie haben das Fenster ge’ffne 
t."srichtung (60,5) =57: richtung (57,4 
)=68: G0T0 538 
IF o=118 AND richtung (60,3)=57 THEN 
PRINT"Das Fenster ist ge ffnet .": 
60T0 530 
IF o=116 AND objekt (35)=-1 AND rich 
tung(43,1)=@ THEN PRINT"Sie haben d 
ie T}r ge’ffnet „"srichtung (43,1)=7 
4:60T0 S3®:ELSE IF o=11& AND richtu 
ng(43,1)=74 THEN PRINT"Die T}r ist 
schon’ offen .":G0T0 538 
PRINT bemer kung$ (3) :60T0 53@ 
IF o=1 THEN PRINT"Es ist meiner.":6 
0T0 530 
IF o=2 OR o=49 THEN PRINT"Sie f}hrt 
nach oben.":60T0 538 
IF o=4 AND objekt (5)=@ THEN PRINT"I 
ch sehe einen Zettel. "sobjekt (5)=4: 
60T0 53@ 
IF 0o=5 THEN PRINT"Darauf steht eine 
Nummer .":GOTO 538 
IF o=8 AND objekt (10)=@ AND objekt( 
11)=® THEN PRINT"Auf dem{2 SPACE)Sc 
hreibtisch liegt einDienstausweis{2 
SPACE}und eine Dienst-pistole.":ob 
jekt (18)=B:ob jekt (11)=8:60T0 538 
IF o=1@® THEN PRINT"Es ist ihr Diens 
tausweis. ":G0T0 53@ 
IF o=11 THEN PRINT"Es ist ihre Dien 
stpistole.":60T0 53@ 
IF o=12 AND objekt (13)=@® THEN PRINT 
"Auf dem Schreibtisch{2 SPACE)liegt 
einSchl}ssel ."tobjekt (15)=9:G0T0 
538 
IF o=13 THEN PRINT"Sie{2 SPACE}kenn 
en{2 SPACE}die{2 SPACEIFunktiont2 S 
PACE}desSchl}ssels nicht.":60T0 538 


IF o=14 THEN PRINT"Es ist "; (zug\&@ 
+1@)5;"."; (zug MOD #8); "Uhr":G0T0 55 
[) 


IF 0=15 OR o=6@ THEN PRINT"Sie f}hr 
t_ nach unten.":60T0 538 

o=17 AND objekt (18)=@ THEN PRINT 
uf dem Schreibtisch liegen Ak-ten 
objekt (18)=11:60T0 53@ 

IF 0=2® AND objekt (21)=@ THEN PRINT 
"Auf dem Schreibtisch{2 SPACE)liegt 
einFotoapparat.":objekt (21)=13:60T 
0 530 

IF o=21 THEN PRINT"Es sind noch";#o 
to:"Bilder drauf. ":G0TD 538 

IF 0o=23 AND objekt (24)=@ THEN PRINT 


it AG« (Fortsetzung) 


L@BSEI 
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163421 


133681 


C187C] 
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CCAFCI 
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£[DoCBJ 
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2298 
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0 2390 


2400 
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2470 


2480 


2498 


90 ö 
9 zulie 


"Sie sehen eine Schublade 
24)=15:6070 530 

IF 0=24 AND objekt (25)=@ THEN PRINT 
"Sie sehen eine Akt: objekt (25) =1 
6:60T0 530 

IF 0=25 THEN PRINT"Sie geh’rt zum F 
all “Famit AG'.":G0T0 538 

IF 0=27 THEN PRINT"Sie{2 SPACE)Ispie 
len{2 SPACE}mit ihrer Entlas-sung." 
:G0T0 538 

IF o=31 THEN PRINT"Die Telefonzelle 
{2 SPACE}ist nicht be-schldigt !!!" 
:ob jekt (32)=25:60T0 53® 

IF 4 AND (objekt (35)=@ OR objekt 
(35)=28) THEN PRINT"Daran hingt ein 
Schl}ssel. "ob jekt (35) =28:6010 5358 


IF 0=34 AND objekt (35)<>28 THEN PRI 
NT-Daran hing ein Schl}ssel.":G0T0 
IF 0=36 THEN PRINT"Es ist die Ausga 
be vom Samstag,dem 23. November 198 
5 G0T0 538 

IF o=41 AND objekt (42)=® THEN PRINT 
"Unter einem LKW liegt Werkzeug. ":0 
bjekt (42)=37:G60T0 538 

IF_0=42 THEN ob jekt (42) =@: ob jekt (45 
)=37: 0b jekt (44) =37: objekt (45) =37:0b 
jekt (46)=37:PRINT bemerkung$ (1): 60 
TO 530 

IF 0=49 THEN PRINT"Sie f}hrt nach o 
ben. ":G0T0 538 $ 

IF 0=51 THEN PRINT"Es sind alte Akt 
en und die Per-sonalliste. ":objekt ( 
51) =0: ob jekt (52) =48: ob jekt (53) =48:6 
0TO 538 

IF 0=56 AND objekt (57)=@ THEN PRINT 
"Ich sehe einen Drehknopf. "tobjekt ( 
57)=50:6010 530 


sobjekt( 


IF 7 AND bedingung (2)=® THEN PRI 
NT"Der Drehknopf steht auf Null.":G 
0T0 53@ 

IF 7 AND bedingung (2)=-1 THEN FR 


INT"Der Drehknopf steht auf Eins 
s0TO 53@ 
IF 0=61 AND objekt (62)=® THEN PRINT 
"Neben dem{2 SPACE}Computer stehen 
Dis-kettenlaufwerke. ":objekt (62)=53 
6070 5380 
IF 0=63 AND objekt (64)=@ THEN PRINT 
"Auf dem Schreibtisch(2 SPACE) liegt 
eingesch{ftsbrief. "zobjekt (64) =54: 
soTo 538 
IF 0=65 AND objekt (66)=@ THEN PRINT 
"Auf demt2 SPACE}Schreibtisch steht 
einAnrufbeantworter. "zobjekt (66)=5 
5:60T0 53@ 
IF 0=67 AND objekt (68)=® THEN PRINT 
"Auf dem{2 SPACE)Schreibtisch liegt 
einBrief."sobjekt (68)=56: 6010 538 
IF 0=73 AND objekt (74)=® THEN PRINT 
"Im Schrank stehen B)cher."sobjekt ( 
74)=61:60T0 530 
IF 0=75 AND objekt(76)=® THEN PRINT 
"Unter dem(2 SPACE)Bett liegt ein H 
art-schalenkoffer. ":objekt (76)=62:6 
0T0 530 
IF 0=75 AND bedingung(1@)=® AND obj 
ekt (76)<>@ AND (tzug>20@ AND zug<22 
W)OR(zug>250 AND zug< 278) OR (zug>3Q8 
AND zug<52@)) THEN PRINT"Neben dem 
Bett steht ein Mann ‚der (2 SPACE)o 
#fensichtlicht2 SPACE}durch ihreGeg 
enwart sehr erschrocken ist."sobjek 
t (120)=62:60T0 538 
IF 0=76 AND bedingung (9)=-1 AND obj 
ekt(77)=® THEN PRINT"In Koffer befi 
-ten. " 3 )= 
nden„pjch,gisket-ten. "sobjekt( 


IF 0=7& AND bedingung (9)=® THEN PRI 
NT"Der Koffer ist verschlossen. ":50 
TO 530 

IF 0=77 AND objekt (77)<>@ THEN PRIN 
T"Auf den Disketten steht :":PRINT" 
“Buchhaltung” :60T0 538 

IF o=81 AND objekt (B1)=-1 AND raum= 
64 THEN PRINT"Da wo{2 SPACE)der Spi 
egel hing ,„ sehensie einen Safe.":o 
bjekt (82)=64:60T0 530 

IF 0=82 AND bedingung (13)=@ THEN PR 
INT"Der Safe ist verschlossen .":60 
TO 538 

IF o=82 AND bedingung(13)=-1 AND (o 
bjekt (85)=@ OR objekt (B5)=64) THEN 
PRINT"Im Safe liegen Unterlagen.":o 
bjekt (85)=64:60T0 530 

IF 0=83 AND objekt (85)<>@ THEN PRIN 
"Es sind Vertr(ge(2 SPACE}}ber ill 
egaleGesch{fte.":G0T0 558 

IF 0=89 OR 0=9@ OR 0=91 THEN PRINT" 
Es sind 5 Kisten. In ihnen bef-inde 
n_ sich Elektroger .":60T0 530 

IF o=92 THEN PRINT"Darin liegt viel 


LEAF21 


EF6BEI 
163481 


LSF98) 


193001 


145283 


L88B81 


c0C10] 


LTACFCI 


LSD6EI 
L6B781 


[SESCH 


LFBCAI 


128761 


L2@BC] 


[35981 


CEFECI 


17088] 


L3B56] 


£C2C2] 


18538] 


[B964] 


[22E8] 


L9EAB] 


L8D2E3 


[SASCI 


L7D7A] 


Geld. ":objekt (93)=72:6010 53@ CB3E61 
2530 IF 0=93 THEN PRINT"Est2 SPACE)sindt 

2 SPACE>ungef {hr (2 SPACE}1B12 SPACE 

}MillionMark.Das die einer einfach 

ste-hen 1(*t 7:":G0T0 530 118641 
2548 IF 0=94 THEN PRINT"Sie sehen Fracht 

papiere.":objekt (95)=73:60T0 530 LEDSAI 
2550 IF 0=97 THEN PRINT"Der Tote scheint 

der Gesch{fts-f)hrer dert2 SPACEIF 

irma sein . Er isterwrgt worden , 

vermutlich miteinem Handtuch.Keine 

sch'ne Artzu sterben ' Er{2 SPACEIi 

st(2 SPACE)aber noch";:60T0 2560 EL 

SE 2578 LC6BAJ 
2560 PRINT"warm ‚also ist er erst vor ku 

r-zer Zeit get'tet worden. ObwohlSi 

ei2 SPACE)nicht(2 SPACE}zur (2 SPACE 

}Mordkommissiongeh'ren , k'nnen{2 S 

PACEISIe vi auch den M’rder z 

u_finden, {2_SPACE)ist unter 

{2 SPACE}Umst {nden(2 SPACE}hiernoch 


irgendwo. ":CALL &BB96:G0T0 558 194521 
2570 IF 0=69 THEN PRINT"{2 SPACEIWIITG ! 
:G0TO 53@ C7DDEI 


258@ IF o=1®1 THEN PRINT"Sie sehen eine 
Schublade. "zobjekt (12)=80: 6010 53@ 


2598 IF o=192 AND objekt (195)=® THEN PRI 
NT"Siet2 SPACE)sehen(2 SPACE}einent 
2 SPACE)Sicherheits-schl}ssel.":obj 
ekt (105)=80:6010 530 L744E] 
2600 IF o=1@4 AND objekt(119)=® THEN PRI 
NT"Im Schreibtisch ist eine Schub-1 


LCIEEI 


ade. ":objekt (119)=81:60T0 530 LD9C21 
2618 IF o=119 THEN FRINT"Die Schublade i 
st verschlossen. ":G0T0 538 L8CC81 


2620 IF o=185 THEN PRINT"Sie sehen eine 
Schublade. "tobjekt (106) =82:60T0 53@ 


2630 IF o=106 AND objekt (107)=@ AND bedi 

ngung (3)=-1 THEN PRINT"Siet2 SPACE} 

sehen einen Spezialschl}s-sel."sobj 

ekt (187)=82:60T0 538 CA9641 
2640 IF 0=1@6 AND bedingung (3)=@ THEN PR 

INT"Die Schublade ist verschlossen. 

":G0T0 538 LED341 
2659 IF o=11@ OR _o=113 THEN PRINT"Alle M 

aschinen{2 SPACE}sind abgeschal-tet 

.":60T0 538 CDED&J 
14 AND objekt(115)=@ THEN PRI 
sehen ein Loch im Zaun. "zobj 
Sırichtung (93,1)=44:richt 

ung (44,2)=93: 6010 55® CB9DCI 
267@ IF o=12@ THEN PRINT"Der Mann{2 SPAC 

E}hat Sie k.o. geschla-gen.Sie sind 

erst nach 2@ Minu-ten wieder zu Be 

wu“tsein gekom-men. Der Kinnhaken k 

am vom Chefder Firma,dem ehrenwerte 

n HerrnVogler. “:FOR n=1 TO 3Q88:NEX 

Tzzug=zug+20: 6010 530 148441 
2688 IF o=121 THEN PRINT"Im Holzzaun ist 

eine versteckteT)r eingebaut."zobj 

ekt (122)=34:60T0 538 143281 
2690 IF o=121 AND bedingung (11)=-1 THEN 

PRINT"Die TIrtZ SPÄCEJist offen . V 

or 2 SPACE)Ihnenliegt ein Garten.": 

richtung (34,1)=35:G0T0 SS@:ELSE IF 

o=121_THEN PRINT"Die(2 SPACE)verste 

ckte(2 SPACEITIr{Z SPACE)ist(2 SPAC 

E}ver-schlossen. ":G0T0 530 Cassal 
270@ IF o=123 THEN PRINT"Die(2 SPACEITIT 

12 SPACE)ist leider(2 SPACE)von au” 

enverschlossen worden. ":60T0 530 LDBAAI 
271@ PRINT bemerkung$ (1):60T0 538 CCD5@J 
2720 IF 0=12@ AND objekt (1@)=-1 AND obje 

kt (64)=-1 AND bedingung (6)=-1 AND b 

edingung (7)=-1 AND bedingung (B)=-1 

AND objekt (77)=-1 THEN RESTÜRE 5250 

:FOR m=1 TO cmaxsREAD n:PRINT CHR#( 

m’ HENEXTebedingung IQ) = 1sFOR nal T 

0 15000: NEXT:CÄLL &BB26:G0T0 538 L4sBE1 
2730 IF 0=27 AND objekt(1@)=-1 THEN PRIN 

T"Sie sind entiassen.":FÜR n=1 TO 5 

000: NEXT:GOTO 1488 LABEEI 
2748 IF 0=97 AND objekt(1@)<>-1_THEN PRI 

NT"Wiet2 SPACE)sind Siet2 SPACE)bLO 

* zur Polizeigekommen'!Die Leiche(!) 

ist tot!":G0T0 5380 LA4EEAI 
275@ IF objekt (1@)<>-1 THEN PRINT"Weilt2 

SPACEIsie{2 SPACE}ihren(2 SPACEIDI 

enstausweisnicht(2 SPACE}bei sich t 

ragen , k'nnensie niemanden verhaft 

en. ":G0T0 538 C1E2CI 
2760 PRINT bemerkung$ (4) :60T0 538 LFD&@] 
2770 IF 0<>32 THEN PRINT"Sie k'nnen{2 SP 

ACE) jetzt (2 SPACEInicht {2 SPACEItel 

e-fonieren.":G0T0 SS@:ELSE IF 0=32 

AND objekt(117)<>-1 THEN PRINT"Sie 

haben kein Geld.":B0T0 538 tB18E1 
2788 INPUT"Welche Telefonnummer "inummer 


Listing. Der Fall »Famit AG« (Fortsetzung) 


LE6FB] 


2668 


BARR, 


2798 


2810 


2820 


2838 


2848 


2850 


2868 
2870 


2888 
2890 


2908 
2918 
2920 
2930 
2948 
2950 


2968 
2970 


2988 


2998 


3918 


3020 


3930 


3058 


$: IF nummer$=bueronummer$ THEN 2798 
ELSE PRINT"Beim n{chsten Ton ist e 
s";1@+(zug\6@);":"; (zug MOD 68) 
r .:sound 1,478,1@8,7:print" Piiii 
eeppp!!!":G0T0 458 

IF bedingung (18)=-1 THEN MODE 2:PRI 
NT=PRINT"(7 SPACE}Herzlichen Gl)ckw 
unsch ! PRINT:PRINT" Sie haben i 
hre Aufgabe erf}llt und ihren Chef 
benachrichtigt. ":PRINT:END 

IF bedingung (18)=@ THEN PRINT"Ihr C 
heft2 SPACE}sagt Ihnen durchs Te-le 
fon,er wolle Resultate sehen.Wenn n 
icht bald etwas geschehe,werde er d 
af)r sorgen , da“ Ih-nen etwas gesc 


hehe. ": FÜR TO 3@88: NEXT:G0T0 53 
® 
IF 0o=27 THEN PRINT"Sie sind von zwe 


i ihrem Chef zuHilfe kommenden{2 SP 
ACE}Folizisten er-schossen worden." 
:FOR n=1 TO 4808: NEXT:GOTO 148@ 

IF '® AND objekt (45)=-1 THEN PRIN 
T"Sie haben das Fenster zerschla-ge 
n, und Sie k'nnen jetzt durchdas Fe 
nster klettern. "zrichtung (36,4) =61: 
richtung (61,3)=36:6070 538 

IF o=58 OR 0=59 OR 18 THEN PRINT 
"Sie haben{2 SPACE}die Alarmanlage 

aus-gel 'st.Damit k'nnen Sie die Su- 
che einstellen.":FOR n=1 TO 5@@@:NE 
XT:60T0 1488 

IF objekt (45)=-1 THEN PRINT"Gewalt 

wird Ihnen nicht helfen.":60T0 53@ 

IF objekt (45)<>-1 THEN PRINT bemerk 
unas (2? zEUTO 330 

SYMBOL AFTER 5: 

SYMBOL 123,198,0,12@,12,124,2@4,118 


96,182,0,60,182,1@2,102,6@ 
92.102,60,1@2,102,182,102,68 


91,1@2,60,102,102,126.102,1@ 
125,102,0,1@2,1@2,102,1@2,62 
93,36,182,182,102,1@2, 102,60 
126,28,35,99,188,99,99,99,18 
SYMBOL_144,255,195,195,195,195,195, 
195,255 
READ p1,p2,p3,p4:IF pi=-999 THEN 30 
Er} 


PLOT p1,p2:DRAW p3,p4:60T0 295@ 
DATA 170,270,180,278,215,27@,225,27 
8,175,278,195,340,205,340,220,278,1 
78,270,196,340, 206,348, 221,270,195, 
348,205,348,184,295,214,295, 240,270 
250,270,240,340,258,340,280,278 
DATA 290, 270, 280,340, 290,340, 245,27 
0.245,348,246,270,246,348,245,305,.2 
85,278, 245,305, 285,348,318, 348,365, 
348,310,348,310,335, 365,340, 365,335 
„337,348, 337,270 

DATA 338,348, 338,270,332,270,342,27 
0,311,348,311,335, 366, 348, 366,335, 3 
85,270,440,270,440,270,440,280,441, 
278,441 ,288,390,270,390,348,391,348 
»391,270,385,348,448,348 

DATA 440,340,440,330,441,340,441,33 
0,390,305,420,305, 428,299 ,428, 318,4 
21,310,421,299,1@8,168,118, 168,105, 
168,1@5,218,106,168, 196,210, 128,218 
,140,218,140,218,148,205,141,218 
DATA'141,205,1@5,185,125,185,125,18 
0,125,189,125,188,126,189,160,160,1 
78,160,190,160,200,168,165,168,175, 
210,195,218,195,168,166,168,176,218 
‚186,218,196,160,176,218,186,218 
DATA’ 170,178, 190,178, 220,160,230,16 
2,260, 168,278, 168,225,168,225,210,2 
25,168,225,210,265, 160,265, 218,265, 
160,266 ,210,245, 168, 245,218,245, 168 
„225,210,226,218,245,160,266,210,24 
6,168 

DATA _290,160,308,168,290,218,380,21 
0,295, 168,295,210,296,168,296,218,3 
20,2108,360,210,328,21@, 320,205, 321, 
218,321,205,360,210,368,205,361 ,218 
361 ,2@5,340,210,348,160,341,168 
DATA’ 341,210,335,160,345,160,400,1& 
0,410,160,438,160,440,168,495,160,4 
15,218.425,210,435,160,406 160,416, 
210,426,210,435, 168,408, 178,431,178 
„416,218,426,218,497,218,490,210,-7 
97,0,0,0 

FOR a=9® TO 180:DEG:PLOT 490+2@=C0s 
(a) ‚190+2@*SIN (a) :NEXT:DRAWR Q,-1@: 
DRAWR 1,0:DRAWR @,10:FOR a=18@_TO 5 
60: DEG: PLOT 490+20*C0S (a) ‚180+2@#S1 
N(a) :NEXT:DRAW 518,185:PLOT 511,180 
:DRAW 511,185:DRAW 5@®,185: INK 1,26 
3 RETURN 


SYMBOL 
SYMBOL 


SYMBOL 
2 
SYMBOL 


SYMBOL 


SYMBOL 
= 


LFIECI 


[67081 


L631C1 


CC68A1 


153081 


L8F@81 
CABSCI 
CSEBA] 
E15BA] 


169891 
ED&A6] 


LFA&6] 
167BA1 
L924A1 
LC462] 
L4E46] 
177A0] 


LDE2@] 
EDESAI 


135AAI 


L42A8] 


LA4BCEI 


EFCB21 


104961 


LC9661 


COFE2] 


[28821 


LDBSEI 


Spiele-Listing 


3068 


3978 
3a88 
3998 
3108 
3118 
3128 
3138 
3148 
3158 
3168 
3178 
3188 
3198 
3208 
3218 
3228 
3238 
3248 
3258 
3268 
3270 
3280 
3298 
3308 
3318 
3320 
3338 
3348 
3358 
3368 
3370 
3388 
3398 
3490 
3418 
3420 
3438 
3448 
3458 
3468 
3478 
3488 
3498 
3508 
3518 
3520 
3538 
3548 
3558 
3568 
3578 
3588 
3570 
3608 
E2ICH 
3628 
3638 
3648 
3658 
I668 
3678 
3688 
3670 
3708 
3718 
3728 
3738 
3748 
3758 
3768 
3770 
3780 
3798 
3808 
3810 
3820 
3838 
3848 
3858 
3868 
3878 
3888 
3890 
3908 
3710 
3920 
3738 
3740 
3950 
3960 
3978 
3788 
3998 
4208 
4218 
4028 


DATA gehe nach,bediene,benutze,foto 
grafiere,h're,leg,lies,nimm, "ffne,u 
ntersuche, verhafte,telefoniere,zers 
chlage,lade,speicher „ende 
DATA einen Pkw,18 

DATA eine Treppe,2 

DATA eine T}r,3 

DATA einen Schreibtisch,4 
DATA einen Zettel,® 

DATA eine T}r,5 

DATA T?ren,7 

DATA einen Schreibtisch,8 
DATA ein Telefon.8 

DATA einen Dienstausweis.® 
DATA eine Pistole,@ 

DATA einen Schreibtisch,? 
DATA einen Schl’ssel,® 
DATA eine Uhr,& 

DATA eine Treppe,1® 

DATA eine T}r,1® 

DATA einen Schreibtisch,11 
DATA Akten,® 

DATA eine T}r,12 

DATA einen Schreibtisch,i3 
DATA einen Fotoapparat,® 
DATA Tiren,15 

DATA einen’ Schreibtisch,16 
DATA eine Schublade,@ 

DATA eine Akte,® 

DATA einen Schreibtisch,17 
DATA ihren Chef,® 

DATA Autos,17 

DATA Geschirr ,2@ 

DATA eine Stra“enlampe,23 
DATA eine Telefonzelle,25 
DATA ein Telefon,® 

DATA ein Firmenschild,27 
DATA eine Schl}sselleiste,28 
DATA einen T}rschl)ssel,@ 
DATA eine Zeitung 28 

DATA einen Zaun,29 

DATA einen Zaun.si 

DATA Blumen, 35 

DATA ein Fenster ‚36 

DATA Lastwagen „37 

DATA Werkzeug ,@ 

DATA Schraubenschl}ssel ,@ 
DATA Zangen,® 

DATA einen Hammer ‚@ 

DATA Schraubenzieher ,@ 
DATA Maschinen, 48 

DATA Maschinen,41 

DATA eine Treppe,46 

DATA einen Schreibtisch,47 
DATA Akten,48 

DATA die Personalliste,® 
DATA alte Akten,® 

DATA einen Schreibtisch.49 
DATA einen Stuhl „49 

DATA eine Schalttafel ‚5@ 
DATA einen Drehknopf ,® 
DATA eine Glast}r ,46 

DATA eine Glast}r,33 

DATA eine Treppe,52 

DATA einen Computer ‚53 
DATA Diskettenlaufwerke,® 
DATA einen Schreibtisch,54 
DATA einen Beschtftsbrief,@ 
DATA einen Schreibtisch,55 
DATA einen Anrufbeantworter ,® 
DATA einen Schreibtisch,56 
DATA einen Brief,® 

DATA eine Toilette,57 

DATA ein Geb}sch,58 

DATA Sessel „61 

DATA einen Tisch,61 

DATA einen Schrank,&si 

DATA Bicher ‚8 

DATA ein Bett ,62 

DATA einen Koffer ,@ 

DATA 8 Zoll-Disketten,@ 
DATA eine Dusche,63 

DATA ein Waschbecken ‚63 
DATA die Garderobe,64 

DATA einen Spiegel ,64 
DATA einen Safe,® 

DATA Unterlagen,® 

DATA die Haust?r ‚65 

DATA Kichenger {te,65 

DATA einen Tisch,67 

DATA St}hle,67 


DATA einen Gabelstapler ,68 
DATA Kisten,69 


DATA Kisten, 7® 

DATA Kisten, 71 

DATA eine Kiste,72 

DATA viel Geld,ö 

DATA einen Schreibtisch, 73 
DATA Frachtpapiere,® 

DATA Waschbecken ,77 


Listing. Der Fall »Famit AG« (Fortsetzung) 


L258C1 
LE7343 
E3A&B] 
118123 
CcD181 
13344] 
LaFanı 
1B334) 
[21201 
ErCH 
CDD2EI 
121443 
C9F2AI 
LAGEOI 
C41E21 | 
ECDBCI 

[6964] 
E3F741 
CasE4] 
LBS6E] 
L7D7EI 
159641 
[D79E3 
£318A] 
179981 
LAQB6I 
17280] 
187561 
CFieCI 
102041 
[36E41 
[69C8] 
[345AJ 
[34641 
198781 
LEF9CH 
[7CC81 
186101 
[85043 
£D23A1 
C1BDEI 
L3EC81 
[SFB2I 
LIAFEI 
[BFC2I 
[DEiBI 
1C3443 
[3696] 
LABFAI 
L&BDCI 
c3D923 
1Da&83 
LBa7AI 
LEDB®] | 
c9aacı 

L8sF8] 
CD2C41 
LOBA4) 
c89D@1 
L72CAJ 
LIEDAI 
139781 
C2DF@J 
EFD96I 
CAFD2I 
178843 
CDAB41 
176901 
187361 
[45981 
CB1D@J 
[D15AJ 
(81023 
L3B723 
[CECA] 
1524A1 
[2FIEI 
[D1AAI 
CCBB&J 
EDAF2I 
(253C3 
139741 
EFS6EI 
[case] 
LC2963 
LD7&C1 
LIFD6I 
LFEZEI 
c02921 
teab83 
CASSAl 
LilSE) 
TE488] 
EFFAEI 
1757C3 
L4D723 
[8383 


aber 


DATA eine Leiche, 77 

DATA Kocht 'pfe,78 

DATA Tische, 77 

DATA St}hle,77 

DATA einen Schreibtisch,8® 

DATA eine Schublade,® 

DATA einen Schl}ssel ,® 

DATA einen Schreibtisch,81 

DATA einen Schreibtisch,82 

DATA eine Schublade,® 

DATA einen Spezialschl)ssel,@ 

DATA Maschinen,83 

DATA Maschinen,84 

DATA eine Schalttafel 85 

‚85 

‚chinen!87 

ne Schalttafel ‚88 

nen Zaun 93 

n Loch im Zaun,® 

DATA Tr „43 

DATA etwas Kleingeld,® 

DATA ein Fenster ‚68 

DATA eine Schublade,® 

DATA einen Mann,® 

DATA einen Holzzaun,34 

DATA eine versteckte TIr,® 

DATA eine Tr ,47 

DATA vor dem Polizeigeb(ude,®,2,18, 
19,2,0 
Data'im 
DATA in 
DATA in 
DATA in 
DATA in 
DATA in 
DATA in 
DATA in 
DATA in 
DATA in 
DATA in 


Eingang, 1,3,8,5,18,@ 
einem Flur ,2,8,8,4,8,8 
B}r0.5,0,3,8,8,8 

‚B,4,2 


einem 
einem 


einem 


der 
der 


vor 
auf 
auf der 
auf der 


auf der ‚26,25,25,25,8,8 


»26,25,23,26,0,@ 


am Eingang,29,0,0,28,0,@ 
in der Pf rtnerloge,8,8,27,8,8 


Weg ‚31,27,38,8,0,@ 
Parkplatz,2,8,8,29,@ 


auf der Stra’ 
DATA 


DATA 


a 
Data 
DATA 

[) 
data 
DATA auf 
DATA_vor 
ea @,32,37,0,8 

auf einem 
DATA in einem Garten,8,34,8,36 
DATA auf einer Terrasse,2,0,35 


auf 
auf 


auf 


Weg 
Weg, 34,31,38,33,0,8 
Verwaltungsgebude,® 


} 
DATA in einer Fahrzeughalle,8,8,8,3 


4,0,0 
auf Weg,8,8,39,32,0,0 


DATA 
DATA auf einem Weg,86,48,42,38,8,8 


DATA in einer Fabrikhalle,3#,8,0,0, 

@ 

f 

DATA in einer Fabrikhalle,42,2,8,0, 

2,0 

DATA auf einem Weg,83,41,43,39,0,8 

DATA auf einem Weg,8,44,8,42, 

DATA auf einem Weg,43,0,45,8 

DATA vor einen Lagerhaus @,0,68.44, 
R 

DÄTA im Eingang ,48,47,8,51,52,@ 
DATA in einem B}ro,0,8,8,0,8,8 

DATA im Archiv,8,44,8,8,8,8 

DATA in einem B)ro,d 

DATA im Schaltraum,5 

DATA in einem Flur ‚49,58 

DATA in einem Flur ‚53,54 

DATA in einem B}ro,8,52, 

DATA in einem B}ro,52,8, 

DATA in einem B)ro,56,8, 

DATA im Chefb}ro,8,55,0,8,8,8 
DATA in einem Tollettenraum,®,@,51, 
DATA auf einem Pfad,33,8,0,59,8,2 
DATA auf einem Pfad.60,8,58,8,0,8 


DATA hinter dem Geb{ude,d, 


LBESCI 
LF&A2I 
LE4SE] 
[3674] 
126861 
LD@9CI 
L15E@] 
[B97C] 
LE7881 
[DE923 
LABCE] 
CCBABI 
LEFA4I 
CD@D4J 
E29ACI 
C6CB@] 
CBCEB] 
LAFBAI 
[B426] 
1C8723 
L@9A4] 
£71D21 
L619A] 
13076] 
EFBS8] 
CFBD®] 
CB488] 


L859C) 
L1C66] 
[541E] 
C1F321 
CAB2E) 
172381 
LESACI 
18938] 
17934] 
LF7ZEE] 
[84E8] 
[6746] 
LAGECI 
L43E8] 
L4B6@] 
L8C941 


[84261 
[4462] 
[BESA] 
L49ECI 
LIEAAI 


175883 
CS1AEI 
1C3B2] 
[3EC®) 


L2FC@] 
[28DA] 


[3884] 
197481 


L7@A41 
C85D2] 
C11AC] 


CDSDCI 
C6ED6] 
[958C3 


L4EC2] 


LS6EAI 
EFDE2) 
15408] 


17C281 


CCAB4] 
L81BC)] 
CAsDa1 
C8DDA] 


12518) 
L42CA] 
L&D38] 
[28021 
L23A@] 
L892C1 
CFIEB] 
CAIEsI 
[2F98] 
[769AJ 
CAF12] 
CF672] 


L1AS8] 
TEE9CI 
L4A9Cc3 


im Wohnzimmer ‚8,0,36,64,0,8 

im Schlafzimmer ‚2,64,0,63,8,8 

im Bad,B,8,62,0,0,8 
DATA in einem Flur ,62,65,61,66,2,8 
DATA in einem Flur ,64,0,0,67,0,8 
DATA in der Kiche,8,67,64,0,8,8 
DATA im E*zimmer „66,8,55,8,8, 
DATA an der Rampe,78,69,71,45,0,8 
DATA in einer Lagerhalle,68,2,8,0,@ 
‚Bd 
DATA in einer Lagerhalle,2,62,2,8,0 
Bara in einer Lagerhalle,73,72,8,68 
FL 
BaTa in einer Lagerhalle, 71,0,0,8,0 
DATA in einem B}r0,2,71,8,8,0,8 


3 


5268 
5270 


5280 


5298 


s3ı8 


einer K}che,8,2,8,79,8,0 
der Kantine,8,75,78,8,8,8 
B}r0,82,8,75,0,8,8 
B3r0.0,8,74,0,8,8 
B}ro,0,88,0,0,0.0 
Fabrikhalle,84,42,0,8 
Fabrikhalle,84,83,0,8 
Schaltraum,@,8,83,8,@ 
Fabrikhalle,87,39,8,8 
Fabrikhalle,87,86,8,8 
Schaltraum,2,2,86,0,@ 
972,90,91,22,0,8 
Stra”e,89,98,90,98,0,0 
91,91,91,89,0,8 
93,89,92,92,0,8 
Stra”e,93,92,94,93,0,0 
94,94,94,93,0,0 


Stra”. 


Stra 


DATA vorn,hinten,links,rechts,oben, 
unten 

DATA 83,195,101,32,184,97,98,101,11 
0,32,32,108,1@01,118,32,77,97,11@,11 
0,32,118,1@1,114,104,97,182,116,1@1 
„116,32,44,97,117,115,32,32,10@,114 
‚105,110,105,101,110,190,1901,1909,52 
‚32,86,181,114,180,97,99,104,116,32 
„108,117,114,99 

DATA 184,32,105,108,108,101,105,97, 
108 

DATA 1@1,32,71,101,115,99,104,125,1 
@2,116,181,52,49,48,32,77,105, 108,1 
08,105,111,11@,101,11@,32,77,97,114 
,187,32,117,118,118,1@1,99,184,116, 
199,123,126,105,1@3,32,1@1,114,117, 
111,114,98,181,110,32,122,117,32,10 
5377,90, 101: LIBS SETSZpRRSEET LANZ 
DATA 97,110,11@0,32,98.101,105,1@5,1 
1@,110,116,32,122,117,52,115,112,11 
4,1981,79,184,1@1,11@,32,58,32,34,73 
„99,104,52,183,181,115,116,1@1,104, 
i@1,46,32,65,118,1@3,101,102,97,11@ 
„1@3,181,11@0,32,104,97,116,32,97,10 
8,198,101,115,32,189,105,116,32 
116 

DATA 101,117,1@1,114,1@4,105,11@,11 
6,1@1,114,122,1@5.181,104,117,11@,1 
@3,44,32,115,112,125,116,1@1,114.32 
„187,97,109,101,118,32,100,77,118,1 
18,32,185,188,188,101,105,97,188,10 
1,32,71,101,115,99,184,123,1802,116, 
181,32,1@4,185,118,122,117,46 

DATA 123,102,116,101,52,104,105.110 
„122,117,46,32,68,1@1.114,32,71,1@1 
,115,99,194,123.102,116,115,102,125 
}184,114,181,114,32,1@9,1@1,.114,187 
,116,181,32,1@01,116,119,97,115,44,3 
2,195,99,184,32,119,111,1@8,1@8,116 
‚101,32,109,1@5,99,184,32,97,98,115 
„181 

DATA 116,122,1@1,11@0,44,32,97,98,18 
1,114,32,1@1,115,32,119,97,114,32,1 
22,117,32,115,112,123,116,46,32,75, 
99,184,32,109,117,126,11; 
5,194,110,32,116,96,116, 
34 


Listing. Der Fall »Famit AG« (Schluß) 


155B8] 
EF1D@] 
CSFSC) 
1[590C] 
L42EC] 
178181 
CABZAI 
[9532] 
1[37F8] 
L1F681 
17862] 
CAB26] 
174361 
EDABCI 
L4D4A] 
TAsF2] 
14008] 
ISEB4] 
1968] 
L67CC] 
£C716] 
L[DC9@] 
EC88C1 
L25F@] 
CDF821 
147807 
CADGEI 
113941 
16280] 
t3Acc] 
[24E2] 
CB3D8] 
tFFE2] 
LFSDE] 
LESE6] 


£D188] 


15602] 
LIBFOI 


19604] 


LF2C21 


180041 


LCB4EI 


LE7F2I 


Autofahren 
ohne 
Tempo-Limit 


Auf Ihrem Computer können 
Sie sich die Wünsche noch 
erfüllen, die im wirklichen 
Leben nicht mehr realisier- 
bar sind: Fahren ohne Tempo-Limit mit 
dem heißen Flitzer in »Mini-Racer«. 


»Mini-Racer« ist ein kleines Autorennspiel, das mit wenig 
Programmieraufwand eine Menge Spaß bietet. Interessant ist 
dieses Programm wohl deshalb, weil es nicht sehr lang — und 
deshalb leicht überschaubar — ist. 

Sie sind der Fahrer eines hochgezüchteten Formel-1-Renn- 
wagens und müssen einen langen gefährlichen Parcours mög- 
lichst heil überstehen. Leicht wird Ihnen die Aufgabe nicht ge- 
macht, denn immer wieder liegen Hindernisse auf der Straße. 
Oder gefährliche Ölspuren und scharfe Kurven machen Ihnen 
das Leben schwer. 

Steuern können Sie Ihren heißen Flitzer mit den beiden Cur- 
sortasten »rechts« und »links«. 


Spiele-Listin 


Das ganze Spiel geht auf Zeit. Das heißt, Sie durchfahren die 
Rennstrecke. Danach wird die Zeit gestoppt, unabhängig da- 
von wieviele Crashs Sie bauen. Nach einem Zusammenstoß je- 
doch verlangsamt sich Ihr Renner und erreicht erst nach eini- 
gen Sekunden wieder die Höchstgeschwindigkeit. Am Schluß 
des ganzen Spektakels werden Ihnen die Punkte sowie die An- 
zahl der »Unfälle« angezeigt. 

Zum Programm selber: In den Zeilen 100 bis 140 werden die 
Hüllkurven, Zeichen, Farben sowie das Grundbild definiert. 
Von 180 bis 300 finden Sie die Hauptroutine zum Erzeugen 
des Parcours und der Hindernisse, sowie die zum Steuern des 
Wagens. Die Zeilen 340 bis 370 beenden das Programm mit 
einer Schlußmelodie, der Punktebewertung und der Rückkehr 
zum Menü. 

Viel Spaß und Hot Wheels! 


(Michael Bauer) 


Mit Basic kann man auch schnelle Spiele schreiben 


r 
1B REM mann L82E2] 
20 REM * * [9484] 

REM *  MINI-RACER * LABC4] 
40 REM * * 6858] 
50 REM « MICHAEL BAUER * DE7EI 
40 REM #« SCHWANTHALERSTR. 188 ” CB484] 
70 REM « 8 MUENCHEN 2 * L77B8] 

REM #* TEL. 889/59822642 * 12698] 
FD REM Haan C12F2] 
1@@ INK 1,1®:CLS:BORDER ®: INK ®,@: INK 2, 

24: INK 3,26: INK 4,213PRINT CHR$(23)" 
1":DEFINT a-z:DEFREAL t:we=128 L9BFAI 


11@ ENV 1,15,-1,2BENV 2,15,-1,20:ENT 1, 
2@,-2,1,1,38,1,20,-2,1,5@,1,1:ENT 2, 
25/4,1,208,-1,1 L391E] 

120 SYMBOL’ 240,899 ‚UFF,u99 ,u3C,%24 ,uAS,& 
E7,499:SYMBOL 241,0,410,42A,44D,455, 
&A2,&91,B: SYMBOL 242,0,47F,441,&41,% 
7F ,8,8,8: SYMBOL 243,&38,&20 ,&5A,&AA, 
Kb ,L10,u10,&10: SYMBOL 244,8,2,41D,%& 
FB,&SE,KIC 

139 MODE Gi ver=150:4=3@8: x 1=x:xp1=25@: xp 
r=35@:PLOT xpl,@,1:DRAWR 8,399: PLOT 
xpr ‚O:DRAWR 0,399:FOR y=@ TO 36@ STE 
P 20:PLOT S@@,y,S:DRAWR ®,14:NEXT:PL 
OT 250,204,2:DRÄWR 96,0:MÜVE x ‚208: T 
AG: PRINT CHR& (248) ; ıMÜVE 358,268: PRI 
NT CHR$ (242) 

148 FOR v=® TO 20@@:NEXT:SOUND 1,68,18,1 
S:MOVE x,200: PRINT CHR$(24@) } :ti=TIM 


122061 


EDB7EI 


E+92000 105841 
150 ' tE1BAJ 
160 ' [@4BC] 
170 ' T@SBE] 
18@ PLOT @,4@8,2:MOVE x,2@@: TAG:PRINT CH 

RS (240) ECB9AI 
19® IF (INKEY(1)=@ AND x1<687) THEN xi=x 

1+4 170361 
20@ IF (INKEY(8)=B AND x1>1) THEN xi=x1- 

4 187641 


FOR v=®_TO_ver:NEXT 

SOUND 129,3@@+ver*5,20,13:SOUND 130, 
348+ver#5,20,13 L6ABB] 
TAG:MOVE * „208: PRINT CHR$ (248) ; [2504] 
TAGOFF=LOCATE 1,1:PRINT CHR$(11): TAG 7 
L487C1 


[B6BC1 


25@ s=INT(RND#16):IF INT(RND*2)=1 THEN P 
LOT xp1,383,1:IF xpl>96 THEN »pl=xpl 
-s ELSE'xpl=xpl :ELSE PLOT xp1,383,1 
:IF xp1<48® THEN xpl=xpl+s 

260 DRAW xp1,399:PLOT xpr „383:xpr=xpl+we 
:DRAW xpr ‚399: IF xpr<58@ AND xp1 >58 
THEN IF INT(RND»S@)=1 THEN PLOT 8,48 
@,RND*2+2: MOVE xp1-23@+CINT ( (RND#2) + 
1) #186) „399: PRINT CHR$ (241+RND#2) 5 

27@ IF INT(RND«3@)=2 THEN PLOT 8,400, 1:M 
OVE xPL+A6#INT (RND#4) „599: PRINT CHR# 
Ä LE} 

288 x=x1:p=p+i:ver=ver-2:IF ver<i THEN v 
er=1 119181 

298 IF_(TEST(x,2@2)OR TEST (x+16,202) OR 
TEST (w+28,2@2))=1 THEN SOUND 132,50 
@,2@8,15,1,,31:BORDER 26: INK 8,26: CA 
LÜ &BDI9: INK @,0:BORDER G:ver=150:x1 
Sxpl+48:x=xl:cr=cr+1 

39® IF TIME<t1 THEN 188 


LFCCBI 


[3486] 


tEDSAI 


348 IF p>hp THEN hp=p:SOUND 1,78,70,15,2 
‚12SOUND 2,72,7@,15,2,1 ELSE SOUND'1 
»2@@,225,15,,2:SOUND 2,2@2,225,15,,2 


350 MODE 1:PEN S:LOCATE 5,1@:PRI: 

p+" (3 SPACEIHIGH SCORE =";hp:LOC 

ATE 5,12: PRINT"CRASH'S =";cr:LOCATE 
15,1 INT"nochmal_j/n" 

i$=INKEY$: IF i$="j"THEN p=@:cr=0:60T 


[38121 


L91CAl 


L14AEI 
L8F541 


0 138 
37@ IF i$<>"n" THEN 368 


Listing. Schaffen Sie es, ohne Unfall 


we 


a ci 


Logo-Grundlagen 


Dr. Logo — mehr als nur 


eine Schildkröte 


Für viele Hobby-Programmierer ist 
Logo, speziell das Dr. Logo des 

3% Schneider, Neuland. Was kann 
diese Sprache? 


enn Basic der Golfunter den 

Programmiersprachen ist — 

weitverbreitet, handlich, ein- 
fach zu bedienen —, so ist Logo eher 
mit einem Exoten zu vergleichen: 
Anspruchsvoll in der Bedienung, 
aber komfortabel und sehr lei- 
stungsstark. Also lieber Logo als Ba- 
sic? Die Antwort auf diese Frage 
hängt von der gewünschten Anwen- 
dung ab. Was nützt schließlich ein 
Sportwagen, wenn man Möbel trans- 
portieren will? Schauen wir uns zu- 
nächst einmal Logo etwas näher an. 


Logo — was ist das? 


Logo ist wie Basic, eine problem- 
orientierte Sprache, das heißt die 
Struktur ist an der Aufgabenstellung 
orientiert und nicht am Computer 
(Gegensatz: maschinenorientierte 
Sprache, zum Beispiel Assembler). 

Logo wurde 1967 am Massachu- 
setts Institute für Technology (MIT) 
entwickelt. Wie Basic ist auch Logo 
eine Dialogsprache. Die einzelnen 
Programmteile, die in Logo Proze- 
duren heißen, werden am Bild- 
schirm entwickelt und können unab- 
hängig vom übrigen Programm be- 
arbeitet und getestet werden. Eine 
jedesmal neue Gesamtüberset- 
zung, wie zum Beispiel in Pascal, ent- 
fällt. Es ist daher sogar möglich, Lo- 
go-Prozeduren während des Pro- 
grammablaufs zu ändern, ohne grö- 
Bere Wartezeiten zu verursachen. 

Logo ist grafikfähig. Es besitzt die 
sogenannte Turtle-Grafik (ist aber 
nicht etwa mit ihr identisch), eine mit 
Kommandos steuerbare Schildkrö- 
te, die Linien ziehen, Schleifen ma- 
len und Kästchen zeichnen kann. 
Dieses »Tier«, das bei der Logo-Ver- 
sion des CPC zu einem einfachen 
Dreieck degeneriert ist, hat sich lei- 
der zum Symbol der ganzen Spra- 
che aufgeschwungen und so dazu 
geführt, daß Logo zu einer Art »Ba- 
by«-Sprache abaualifiziert wurde. So 
verwendet man die Vorteile von Lo- 
go meist nur bei der Anwendung im 


Schulunterricht, um kleinere Kinder 
mit der neuen Technik vertraut zu 
machen. Aber Logo kann viel mehr. 

Mit Pascal hat Logo das modulare 
Prinzip gemeinsam. Jedes Pro- 
gramm besteht aus einer Summe 
von Prozeduren (Unterprogram- 
men), die sich untereinander aufru- 
fen. Jede Prozedur ist ein unabhän- 
giges Modul, das von außen mit Da- 
ten versorgt wird. Durch sogenann- 
te lokale Variable (sind nur in einer 
Prozedur gültig) ist es möglich, Va- 
riablen gleichen Namens in mehre- 
ren Modulen unterschiedlich zu ver- 
wenden, ohne daß die Inhalte über- 
schrieben werden. Durch dieses 
Baukastenprinzip kann man eine in- 
tensive Verflechtung von verschie- 
denen Programmteilen erreichen 
und somit eine starke Strukturierung 
erzwingen. Dies hat mehrere Vortei- 
le: Zum einen kann Logo auf eine 
sich ständig vergrößernde Zahl von 
Prozeduren (fast jede Programmie- 
zung schafft ja neue Prozeduren) zu- 
rückgreifen, die dann sofort auch 
für andere Programme zur Verfü- 
gung stehen. Daneben braucht man 
sich nicht mit den Namen der Varia- 
blen, wie bei Basic, herumzuschla- 
gen. Beikomplexen Programmen ist 
Basic hiermit klar im Nachteil: Alle 
Variablen-Namen müssen vorher 
bekannt sein, sonst gibt es schnell 
ein großes Durcheinander. 

Logo ist eine lernende Sprache. 
Es gibt eine bestimmte Anzahl von 
vordefinierten Befehlen, den soge- 
nannten Primitives, aus denen man 
seine (ersten) Prozeduren zusam- 
mensetzt. Istabereine Prozedur erst 
einmal definiert, kann sie einfach 
durch Nennung ihres Namens wie 
ein Logo-Befehl benutzt werden. 
Durch die Definition ist die Prozedur 
zu einem Bestandteil des Befehlssat- 
zes geworden, der sich so beliebig 
erweitern läßt. 

Doch das ist noch nicht alles. Die 
eigentliche Stärke von Logo beruht, 
wenn man einmal vom Prozedurkon- 
zept (Baukastenprinzip) absieht, auf 
zwei Hauptpfeilern: der listenorien- 


tierten Datenstruktur und der Re- 
kursion. Das sind zwei Eigenschaf- 
ten, die Logo als ernsthafte Pro- 
grammiersprache höchst interes- 
sant machen. Wir wollen an dieser 
Stelle zunächst die theoretischen 
Betrachtungen unterbrechen und 
anschauen, wie ein einfaches Bei- 
spiel in Logo aussieht. 

Jedes Logo-Programm wird als 
Prozedur formuliert. Jeder Prozedur 
muß man einen Namen geben, un- 
ter dem diese dem Interpreter be- 
kannt gemacht wird. Der Name darf 
kein Primitiv sein, keine Leerstelle 
und auch keine Rechenzeichen ent- 
halten. Er darf aber mit einer Ziffer 
beginnen. Die Definition einer Pro- 
zedur wird immer mit dem Komman- 
do »to name (eventuell mit Varia- 
blen)« eröffnet. Hinter dem Namen 
der Prozedur können eine oder 
mehrere Variablen angegeben wer- 
den. Werden Variablen mit überge- 
ben, so ist die Prozedur eine Funk- 
tion der angegebenen Variable n. 
Die Definition jeder Prozedur wird 
mit »END« beendet, 

Ein Beispiel: Wir schreiben eine 
einfache Prozedur, die ein Quadrat 
mit der vorgegebenen Kantenlänge 
k zeichnet. Sie müssen als erstes Lo- 
go vonder Systemdisketteladen. So- 
bald das Fragezeichen erscheint, ist 
Logo eingearbeitet und wartet auf 
Ihre Befehle. Nun geben Sie die 
nachfolgenden Zeilen, jeweils mit 
ENTER, beziehungsweise beim 
CPC 6128 RETURN, abgeschlossen 
ein. Dabei müssen Sie unbedingt 
darauf achten, daß die Leerstellen 
genauso auf dem Schirm erschei- 
nen, wie auch in dem Listing 1. 

Das Schlüsselwort. »to« zeigt an, 
daß nun eine Prozedur definiert 
wird. Es folgt deren Name und eine 
Variable (:k). 


Logo-Programme 
sind einfach 


Bis hierhin sind nun auch schon ei- 
ne Reihe von Punkten zu beachten. 
Der Doppelpunkt wird bei Logo als 
Kennzeichen für eine Variable, ganz 
gleich ob »Zahl«, »Wort«, »Satz« oder 
»Liste« verwandt. Er dient als Unter- 
scheidungsmerkmal zwischen Va- 
riablen und Prozeduren, bezie- 
hungsweise einfachen Befehlen 
(Primitives). Dabei ist ein»Wort«eine 
Aneinanderreihung von ASCII-Zei- 
chen. »Satz« steht in Logo für eine 
Reihe von Worten. Eine »Liste« bein- 
haltet eine Reihe von »Worten« oder 
»Zahlen«, kann also sowohl Zahlen 
wie Zeichen beinhalten. Ihre Aufga- 
be ist zunächst einmal die Daten- 


Logo-Grundlagen 


speicherung, einem Array oder ei- 
nem Data-Feld in Basic vergleich- 
bar. Ihre Anwendung reicht jedoch 
weit über diese einfachen Basic- 
Strukturen hinaus. Es ist möglich, Li- 
sten im Prinzip wie Strings in Basic zu 
behandeln, allerdings mit dem Un- 
terschied, daß eine Logo-Liste eine 
Aneinanderreihung selbständiger 
Elemente darstellt. Wir kommen auf 
diese Fähigkeiten später noch ein- 
mal zurück. Es existiert in Logo übri- 
gens keine Unterscheidung ‘zwi- 
schen den Variablenarten, die sich 
anhand eines Kürzels schon im Na- 
men ablesen ließe (wie beispiels- 
weise %,$ und so weiter in Basic). :t 
kann also sowohl eine Liste wie auch 
eine Zahl repräsentieren. 


Delimiter: 
Was ist das? 


Als zweiten Punkt wollen wir et- 
was zu den Trennmarkierungen, 
den sogenannten Delimitern, sagen. 
Vom Schneider-Computer ist man ja 
bereits an Klarheit und Vorsicht bei 
der Verwendung von Leerzeichen 
gewöhnt. Noch stärkere Bedeutung 
erhalten Leerstellen allerdings in 
Logo. Sie fungieren hier nämlich als 
Trennzeichen (etwa so wie in Basic 
der Doppelpunkt), grenzen also Be- 
fehle beziehungsweise Prozeduren 
voneinander und von Variablen ab. 
Da es keine Unterteilung eines Lo- 
go-Programms durch Zeilennum- 
mern gibt, stellen die Leerzeichen 
die einzigen Mittel dar, ein Pro- 
gramm zu unterteilen. Sie müssen al- 
so immer exakt so eingegeben wer- 
den, wie in den einzelnen Program- 
men beschrieben. 90 Prozent aller 
Fehler bei der Eingabe sind auf fal- 
sche Leerzeichen zurückzuführen, 

Als ersten Befehl in der zweiten 
Reihe finden Sie das Wort »Repeat«. 
Esgehörtzu den Primitives, alsozum 
Grundbefehlssatz des Dr. Logo. Die 
nachstehende Zahl gibt an, wie oft 
die folgende Anweisung wiederholt 
werden soll. Was soll nun aber ei- 
gentlich getan werden? Die Antwort 
darauf liefert der Ausdruck in der 
eckigen Klammer. Diese Klammern 
spielen ebenfalls eine große Rolle in 
der Logo-Syntax. Sie grenzen den 
Inhalt von Listen ab. 

Die Umklammerung definiert, 
was zusammengehört. In unserem 
Beispiel sind dies die zwei Befehle 
»fd« und »rt«, jeweils mit zugehöriger 
Parameterangabe. Beide Komman- 
dos sind Primitives und gehören zu 
den Zeichenfunktionen, die die 
Schildkröte bewegen. »id« weist die- 
. se Schildkröte an, vorwärts zu ge- 


BER 


hen. Vorwärts, das heißt bei Logo im- 
mer in Richtung der Pfeilspitze. 
Wenn man also im Ausgangszustand 
in eine andere Richtung als nach 
oben spazieren will, so muß der 
Turtle erst »der Kopf verdreht wer- 
den«. Dazu gibt es zwei Befehle. »It« 
dreht die Schildkröte um die ange- 
gebenen Winkelgrade nach links, 
»rt« bewegt sie in der Gegenrich- 
tung. Was passiert nun also? 

Mit »fd« geht die Turtle zunächst 
nach oben und zwar um die in :k ge- 
speicherte Anzahl von Schritten. Es 
gilt dabei derselbe Rahmen wie in 
Basic, also 639 Schritte in der Hori- 
zontalen und 399 in der Vertikalen. 
Danach kommt ein »rt 90«. Die Nase 
der Turtle dreht sich um 90 Grad 
nach rechts. Normalerweise würde 
nun zur nächsten Anweisung weiter- 
gegangen. Durch die Umklamme- 
rung und das Repeat-Kommando 
wiederholt sich dieser Vorgang 
aber viermal. Die Schildkröte geht 
also wieder :k-Schritte vorwärts. Da 
die Spitze nun aber nach rechts 
weist, wird der Strich nach rechts 
gezogen. Noch ein Dreh und ein 
gleichlanger Strich nach unten folgt. 
Nach dem letzten »rt« und :k-Schrit- 
ten ist die Schildkröte wieder am 
Ausgangspunkt angelangt. 

»End« beschließt die Definition 
der Prozedur. Dieses Schlüsselwort 
muß immer gebraucht werden, um 
dem Interpreter das Ende der Pro- 
zedur mitzuteilen. Damitistderneue 
Befehl definiert. Für Logo gibt es 
keinen wesentlichen Unterschied 
mehr zwischen unserem Befehl 
»Quadrat« und einem seiner Primiti- 
ves. Der Befehl »Quadrat« kann jetzt 
ohne Schwierigkeiten in anderen 
Prozeduren aufgerufen werden. Da- 
zu geben Sie einfach das Befehls- 
wort »quadrat 60« ein, und ein Qua- 
drat mit der Kantenlänge 60 wird auf 
den Schirm gezeichnet. Bevor Sie 
weiterlesen, sollten Sie unbedingt 
diese erste Prozedur ausprobieren, 
um sich mit Logo vertraut zu ma- 
chen. Dazu können Sie ruhig auch 
einmal im Programmtext editieren. 
Versuchen Sie beispielsweise ein- 
mal, ein gleichseitiges Dreieck zu 
erhalten. Dazu muß die Zahl nach 
dem »repeat«auf3herabgesetztund 
die Spitze der Turtle jedesmal um 12 
(statt 90) Grad gedreht werden. Wie 
dabei editiert wird, gibt Ihnen Ta- 
belle 1 wieder, 

Wie Sie sehen, ist es wirklich sehr 
einfach mit Logo schnell brauchba- 
re Grafiken auf den Bildschirm zu 
zaubern. Allerdings bleibt zu sagen, 
daß das Schneider-Logo relativ 
langsam im Vergleich mit anderen 
Versionen ist, Auch wenn man die 


Turtle abschaltet, ist Dr. Logo noch 
langsamer als Basic, Dennoch eig- 
net-sich die Sprache recht gut dazu, 
schnell und nachvollziehbar einfa- 
che Grafiken zu erstellen, Unter die- 
sem Gesichtspunkt ist Logo den ent- 
sprechenden Basic-Befehlen deut- 
lich überlegen. Zum einen sind die 
Definitionen kürzer und ohne viel 
Rechnen zu programmieren. Zum 
anderen wurden einige »Macken« 
der Schneider-Befehle verbessert. 
So gibt es bei Logo verschiedene 
Bildschirmmodi (insgesamt 3), die 
festlegen, was passiert, wenn die 
Turtle den Bildschirm verlassen 
würde. Bei »Window« reagiert sie 
wie gewohnt. Was außerhalb des 
Bildschirms liegt, wird nicht ge- 
zeichnet. Bei»Fence« gibt esin solch 
einem Fall eine Fehlermeldung, 
Zeichnet die Schildkröte im »Wrap«- 
Modus, so wird der Bildschirm zu ei- 
nem Kugelschirm. Läuft die Turtle 
an einer Seite aus dem Bild, so 
taucht sie gleichzeitig auf der ande- 
zen Seite wieder auf, 

Diese schönen Eigenschaften bei 
der Grafikprogrammierung sind je- 
doch alleine kein Grund, auf Logo 
umzusteigen. Interessanter wird es 
aber, wenn wir die Grafik ganz aus 
dem Spiel lassen und Logoals ernst- 
hafte Programmiersprache untersu- 
chen. Und hier lohnt es sich aufzu- 
horchen. Logo arbeitet mit Zahlen 
bis 14 Stellen Genauigkeit. Dabei 
sind dreistellige Exponenten er- 
laubt. Während selbst gute Ta- 
schenrechner bei der Fakultätsbe- 
rechnung von Zahlen über 69 meist 
einen Fehler melden, wird von Dr. 
Logo auch die Fakultät von 100 noch 
korrekt berechnet. 


Prozeduren rufen 
sich selbst auf 


Und damit kommen wir zu einer 
weiteren Eigenheit von Logo — der 
rekursiven Programmierung. Wor- 
um, handelt es sich dabei? Eine re- 
kursive Prozedur benötigt zu ihrer 
Definition sich selbst, gibt Daten an 
sich selbst weiter und erhält diese 
wieder von sich selbst zurück. Dies 
klingt auf den ersten Blick etwas 
kompliziert und vielleicht fragen Sie 
sich jetzt, wofür das eigentlich gut 
ist. Nun, zum Beispiel um den Effek- 
tivzins eines Ratenkredites zu be- 
rechnen und festzustellen, wieviel 
man denn noch wirklich dafür be- 
zahlt. Der Zusammenhang ist hier- 
bei wie folgt: Bei einem Ratenkredit 
zahlt man eine gleichbleibende mo- 
natliche Rate. Diese setzt sich aus ei- 
ner gleichbleibenden Tilgung und 


ee 
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einem gleichbleibenden Zinsanteil 
zusammen, wobei die Zinsen, und 
dies ist das Schwierige, zu dem an- 
fänglichen Auszahlungsbetrag hin- 
zugezählt werden. Will man nun 
exakt berechnen, wasderKredit ge- 
nau kostet, so kommt man nur durch 
Probieren zu einem Ergebnis (so 
geht es in Basic). Weitere Wege füh- 
zen über eine Näherungsformel (so 
machen es teilweise die Banken) 
oder man verwendet Logo und pro- 
grammiert das Ganze rekursiv. 

Neben mathematischen Formeln, 
die zu ihrer Lösung rekursives Pro- 
grammieren benötigen, gibt es je- 
doch auch noch eine ganze Reihe 
anderer Anwendungen, wo die Re- 
kursion buchstäblich Berge ver- 
setzt. In unserem nun folgenden 
zweiten Beispiel werden zwar nur 
Befehlsberge versetzt, aber Logo 
wird durchschaubar. 

Sie kennen sicher das Spiel »Tür- 
me von Hanoi«. Wennnicht, hiereine 
kurze Einführung: Bei den Türmen 
von Hanoi handelt es sich um ein 
Strategiespiel. Vorgegeben sind 
drei Plätze. Auf einem Platz ist dabei 
ein Turm aus Scheiben aufgebaut, 
wobei die größten Scheiben zuun- 
terst liegen. Die Spiel-Aufgabe be- 
steht nun darin, den gesamten Turm 
auf einen der beiden anderen Plät- 
ze zu verlagern. Es sind allerdings 
zwei Nebenbedingungen zu beach- 
ten: 

— Es darf immer nur eine Scheibe 
bewegt werden (dies entspricht ei- 
nem Zug). 

— Esdarfnureine kleinere aufeiner 
größeren Scheibe liegen, nie umge- 
kehrt. 

Dieses Spiel ist im Listing 2 als 
Logo-Simulation ausgeführt. Das ei- 
gentliche Programm besteht aus ei- 
ner Anzahl selbständiger Prozedu- 
zen, die durch eine Oberprozedur 
zusammengebaut werden. Sie müs- 
sen also zuerst alle Prozeduren ein- 
zeln eingeben. Das Programm wird 
dann durch die »Main«Prozedur 
‚„TvH« aufgerufen. Es besteht inklusi- 
ve dieser aus 13 Prozeduren. Diese 
müssen dabei wie im Listing 2 ein- 
gegeben werden. Besonders auf 
die Leerzeichen ist zu achten. Wie 
die Prozeduren zusammenhängen, 
zeigt Tabelle 3. Nun zunächst ein 
paar Informationen zu den einzel- 
nen Prozeduren: 

Die Hauptprozedur ist TVH. Sie er- 
laubt in einem Menü die Auswahl 
zwischen zweiSpielalternativen: Un- 
ter Punkt 1 simuliert der Computer 
die optimale Lösung (bei x Steinen 
braucht man mindestens 2*-] Züge). 
Bei Auswahl von Punkt 2 kann sich 
der Spieler selbst versuchen. 


Interessant ist das Starten der Si- 
mulation. Hier wird eine weitere Be- 
sonderheit desDr. Logo benutzt, die 
Listenverarbeitung. Wie die Pro- 
grammiersprache Lisp ist Logo eine 
listenorientierte Sprache, Logo 
macht damit keinen Unterschied 
zwischen »Zahl« oder »Zeichen« als 
Inhalt einer Variablen — ganzim Ge- 
gensatz zu Basic. Entsprechend un- 
terscheidet es nicht zwischen 
Strings, Real- und Integervariablen. 
Eine Variable in Logo kann alles 
sein. Ungewohnt ist das Fehlen von 
indizierten Variablen (= Feldern). 
Daten-Felder werden statt dessen in 
Listen gespeichert. Dieses Konzept 
löst sich von der Speicherplatz- 
orientierten Ablage von Daten und 
vermeidet überdies lästige Dimen- 
sionsanweisungen. Eine Liste ist ei- 
ne Ansammlung von Daten (Zahlen, 
Worte, Sätze oder Listen), deren An- 
ordnung einzig durch die Reihenfol- 
ge vorgegeben ist. Wie bei der 
Stringverarbeitung in Basic ist es 
nun möglich, zu solch einer Liste 
Glieder vorne oder hinten zu addie- 
ren, Listen in Teil-Listen zu zerlegen 
und sie sogar als Programm zu inter- 
pretieren. Das Dr. Logo bietet dazu 
eine Vielzahl von Befehlen. 


Programme ändern 
sich selbst 


Mit RUN wird beispielsweise der 
Inhalt einer Liste als Befehlsliste in- 
terpretiert und ausgeführt. Mit 
ITEM wird die gewünschte Liste 
ausgewählt. Logo ist also in der La- 
ge, ohne komplizierte Maschinen- 
POKESs und ähnliche Tricks, höchst 
komfortabel Programme selbst um- 
zubauen. Die Prozedur, bei der zwi- 
schen verschiedenen Programmva- 
Tianten zu unterscheiden ist, führt ei- 
ne Liste aus, die dann jeweils ent- 
sprechend den aktuellen Bedürfnis- 
sendes Benutzers geändert werden 
kann. Schauen wirunsnun dieande- 
ren Prozeduren an. 

simul — präsentiert die Eingabe- 
maske für die Computer-Simulation 

turm — diese Zeilen enthalten die 
ganze Logik des Spiels. Ein entspre- 
chendes Basic-Programm würde 
zwischen 20 und 30 Zeilen umfassen. 
Hier spielt Logo seine ganze Stärke 
aus: die Rekursion. Wenn die Varia- 
ble :m größer als | ist, soruft die Pro- 
zedur sich selbst, allerdings mit ver- 
mindertem :m auf. 

ausgabe — Ausgabe-Maske derSi- 
mulation. Hier gibt Logo das Ergeb- 
nis seiner Berechnungen aus. 

selbst — Eingabe-Maske für den 
Selbstversuch. 


turmliste — Um diese Prozedur zu 
verstehen, muß etwas zum grund- 
sätzlichen Ablauf des Programms 
gesagt werden. Beim Selbstversuch 
werden drei Listen angelegt: eine | 
enthält am Anfang alle Elemente, 
die beiden anderen sind vorerst 
leer. Mit Hilfe von »turmliste« wer- | 
den nun in die erste Liste die Ele- 
mente durch die Rekursion hinter- | 
einander eingeschrieben. In | 
»selbst« wird dann diese Liste mit 
zwei»Leer-Listen«zu einer Gesamtli- 
ste zusammengebaut, die dann die | 
Elemente aller drei Plätze enthält. 
Jede Scheibe ist dabei durch eine | 
Zahl repräsentiert, wobei kleinere 
Zahlen auch kleinere Scheiben be- 
deuten. Das Programm arbeitetma- 
ximal mit einem Stapel von neun 
Scheiben, »turmliste« stellt ein atypi- 
sches Beispiel für die rekursive Pro- 
grammierung dar, ist aber auch re- 
lativ einfach zu erklären. Beim Auf- 
zuf der Prozedur muß eine Variable 
übergeben werden. Diese wirdint 
eingelesen. Wenn :t Null ist erfolgt 
der Rücksprung, ansonsten wird die 
Liste tl um das Element it erweitert, 

:t wird dabei an die erste Stelle der 
Liste gesetzt. 

Alle anderen Elemente der Liste 
werden weiter nach hinten gescho- 
ben. Alsnächstes— und diesistnun | 
die eigentliche Rekursion — wird 
»turmliste« mit dem um 1 verminder- 
ten it wieder aufgerufen. Wir erhal- 
ten eine Liste, die nacheinander die 
Zahlen von 1 bis :tenthält, wobei die 
l an erster Stelle steht, da jedes 
neue Element vorn angefügt wird. 

ziehen — Eingabemaske der Züge 

— Hier wird der Zug auf 

seine Durchführbarkeit getestet: 
1. Ist die Zugliste leer? 
2. Ist der oberste Stein identisch mit 
dem, der gezogen werden soll? 
3. Ist der gezogene Stein auch klei- 
ner als der oberste auf dem Zielsta- 
pel? Wenn diese Bedingungen nicht 
erfüllt sind, wird »err« aufgerufen. 

err — stellt eine fehlerhafte Einga- 
be fest und gibt wieder an »ziehen« | 
ab, 

listzug und cut — Hier wird der 
Zug ausgeführt. Das erste Element 
der Ausgangaliste wird vor daserste 
Element der Zielliste gesetzt. 

ende — Test, obzweioder drei Un- 
terlisten leer sind. Wenn ja, ist das 
Spiel zu Ende. 

fertig — bringt den Siegertext. 

space — Da in Logo das Leerzei- 
chen als Befehlsdelimiter dient, 
kann es nicht einfach ausgedruckt 
werden. Eine Liste etwa [ ], die ein 
Leerzeichen und sonst nichts ent- 
hält, gilt als leer. Deshalb muß der 
Umweg über den ASCII-Code des 


Leerzeichens (32) gemacht werden. 

Noch ein paar Bemerkungen zur 
Variablendefinition, Inden Prozedu- 
ren »zugtest« und »listzug« werden 
teilweise dieselben Variablenna- 
nen benutzt, Hier kann man gut se- 
hen, wie einfach die Variablenbe- 
nutzung unter Logo ist. Es handelt 
sich nämlich bei beiden trotz glei- 
chen Namens um unterschiedliche 
Werte, Die doppelten Variablen 
sind als »local« definiert. Sie gelten 
also nur innerhalb derselben Proze- 
dur. Namenskollisionen sind da- 
durch ausgeschlossen. 

Aufgerufen wird das Spiel mit 
„TvH«und Enter. Der Rest erfolgt mit 
Benutzerführung. Es wird die Spiel- 
variante abgefragt und danach die 
gewünschte Anzahl von Steinen. Bei 
der maximalen Zahl- (neun) der 
Scheiben auf dem Stapel sind dabei 
511 Züge nötig. 

Der Streit um die »richtige« Pro- 
grammiersprache ist so alt wie der 
Computer selbst. Eingefleischte Ba- 
sic-Freaks werden beim Wort Logo 
nur mit den Schultern zucken, As- 
sembler-Helden sowieso nur lä- 
cheln und souverän auf die überle- 
gene Rechengeschwindigkeit hin- 
weisen. Genauso werden überzeug- 
te Logo-Fans bei einem Vergleich 
mit Basic reagieren, sind sie doch 
überzeugt, daß Logo immer das 
bessere und elegantere Konzept 
‚bieten wird, 

Was läßt sich daraus folgern? Wa- 
rumsollman Logo überhaupt einset- 
zen? Die Verwendung von Logo ist 
dann gegenüber Basic sinnvoll, 
wenn 
— es sich um Programme handelt, 
die mit Listen arbeiten sollen oder 
eine listenorientierte Verarbeitung 
von Vorteil ist 
— man die Rekursioninihrer ganzen 
Mächtigkeit ausschöpfen kann 
— die Prozedurendefinition von Vor- 
teilist. Das ist dann der Fall, wenn ei- 
ne Reihe ähnlicher Probleme die 
Unterprogramme aus einem Pool 
verwenden sollen. Bei vernünftiger 
Programmierung kann man die Pro- 
zeduren ohne weitere Anpassung 
sofort in neue Programme überneh- 
men. 

Logo wirft Probleme auf, wenn 
— es sich um zeitaufwendige oder 
— kritische Anwendungen handelt, 
— der vorhandene Speicherplatz für 
eine Rekursion nicht ausreicht. 

Eine einfache Antwort gibt es also 
nicht. Wenn Sie sich aber an das ei- 
ne oder andere Programmierpro- 
blem aus der Vergangenheit erin- 
nern, werden Ihnen sicher einige 
Aufgaben einfallen, die in Logo ein- 


Logo-Grundlagen 


So schreibt und ändert man Logo-Programme 


Neuschreiben: Wenn das Frage- 
zeichen am linken Bildschirm- 
rand steht, dann kann man Befeh- 
le direkt eingeben. Durch »to« 
und den nachgestellten Prozedu- 
rennamen wird die Definition ei- 
ner Prozedur begonnen. 

Ändern: Beim »%« wird mit »ed 
"Prozedurenname" «eine bereits 
definierte Prozedur zur Ände- 
rung aufgerufen. Da zur Editie- 
rung wenig im Handbuch steht, 
hier die wichtigsten Tasten: 

Mit den Cursortasten kann man 
im Programmtext jede Stelle auf- 
suchen und beliebig ändern. 
Man muß generell eine geänder- 
te Zeile bei Einfügungen neu 
schreiben (Ausnahme siehe En- 
ter). Gelöscht werden kann dage- 
gen ohne Probleme. Reichen die 
einfachen schrittweisen Bewe- 
gungen mit dem Cursor nicht aus, 
so kann man mit gleichzeitigem 
Drücken von Ctrl an den Proze- 
durenanfang, beziehungsweise 
das -ende oder in der aktuellen 


Zeile an Anfang (Ctrl+ Clr links) 
oder Ende (Ctrl+Cls rechts) 
springen. 

Clrund Del wirken wie in Basic. 
Mit CtrIK kann der Rest einer 
Programmzeile (ab dem Cursor 
nach rechts) gelöscht werden. 

Enter teilt eine Zeile auf. Der 
nach dem Cursor stehende Rest 
der Zeile wird in die nächste Zei- 
le übernommen, so daß man 
dann auf dem Rest der aktuellen 
Zeile neue Befehle einfügen 
kann. 

Copy beendet die Editierung 
und gibt die geänderte Prozedur 
an den Interpreter-Speicher wei- 
ter. Hat man größere Änderun- 
gen vorgenommen und stellt vor 
dem Druck auf Copy fest, daß die 
alte Prozedur vielleicht doch die 
bessere war, so kann man mit Esc 
den Edit-Modus ohne Übernah- 
me der geänderten Prozedur 
verlassen. In diesem Fall wird die 
geänderte Version allerdings ge- 
löscht, 


Logo in Stichworten 


type = dasselbe ohne Wagenrücklauf (wie PRINT +";") 


mit make " vom Variablennamen ohne Doppelpunkt gefolgt, 


oder bei einem Prozeduraufruf an die nachgestellten Variablen. 
Im Beispiel »quadrat« wurde so k auf den Eingabewert gesetzt. 


Format if <Bedingung > [then-Teil in eckigen Klammern] 


Befehle, die Listen unterteilen, Daten in Listen einlesen, 


‚Ausgabe- 
möglichkeiten; pr = Basic-Befehl PRINT 
show = Ausdruck einer Liste 
Eingabe- 
möglichkeiten: ıl = Read List, Eingabe von Zahlen und Zeichen 
(ist mit Enter abzuschließen # INPUT in Basic) 
rc = Read Character |, 
Zeichen ohne Enter einlesen = INKEY in Basic 
Wertzuweisungen: 
Verzweigungen: 
[else-Teil in eckigen Klammern] 
Listen- 
verarbeitung: 
Elemente aus einer Liste lösen und so weiter. 
Arithmetik: 


‚»% / Dr. Logo kennt weder Wurzel noch Potenzen als 


Primitives. Diese müssen also vom Benutzer bei Bedarf erst 
noch geschrieben werden. 


Turtle-Grafik und Sound bieten im Sound- beziehungsweise Grafikbereich dieselben 
Möglichkeiten wie Basic. Daneben existieren noch Kommandos zum Zugriff auf die 
Peripherie und den Speicher (Äquivalente zu PEEK und POKE). 


Schachtelung 
TvH simul turm ausgabe 
selbst turmliste 
ziehen zugtest er 
listzug eut 
ende fertig 
space 


So wirken die Programme aufeinander 


Logo-Grun 


to auadrat :k 
repeat 4 [fd :k rt 98] 
end 


Listing 1. Mit dieser Prozedur malen Sie ein Quadrat 


to TvH 

ts ct space 5 

pr [** Tuerme von Hanoi **] 
repeat 4lpr "1 

pr L(1) - Computer-Simulation] 
pr L(2) - Selbstversuch] 

repeat 3[pr "1 

type [Waehlen Sie bitte] space 2 


make "wahl rc if or (zwahl<0) (zwahl>2) LTVHI 
make "i 0 

run item wahl [[simul] [selbst]] 

end 

to simul 

et 


space 5 pr [#** Tuerme von Hanoi #*1 
space 3 pr [** Computer - Simulation #*] 
Brennen 

type [Wieviele Steine? (max. 9] 

space 2 make "st first rl pr " 

if st > 9 [simul] 

turm ıst 1235 

pr " pr [Druecken Sie eine Taste.] 

make "st rc TvH 

end 


to turm sm s1 :2 :3 
if ım > 1 Cturm sm - 1 
ausgabe :m :1 :2 


if ım > 1 Cturm ım - 1 23 32 #11 

end 

to ausgabe :s :a :b 

make "i sı + 1 

type [Stein] space i type :s space :2 
type Lvon Turm] space | type :a space 2 
type [nach Turm) space 1 type :b space 2 


type Li] type si pr DI 


end 


to selbst 

et 

space 5 pr [** Tuerme von Hanoi **] 
space 6 pr [** Selbstversuch **] 
ehr,» 

type [Wieviele Steine ? (max. 
space 2 make "st first rl pr " 
if ıst > 9 [selbst] 

make "ti [1 

turmliste :st 
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make "t [LILI] make "t fput ti :t 
ziehen ti 
end 


to turmliste :t 
if ıt = O [stop] 
make "t1 #put :t stil 
turmliste :t - 1 
end 


to ziehen :i 

make "i :i +1 

type [Stein] space 1 type [L?] 
make "st rc type char 8 

type :st space 2 


Listing 2. Die »Türme von Hanoi« bestehen aus 13 Prozeduren 


Cvon Turm] space 1 type [L?1 
"vt re type char B 

svt space 2 

[nach Turm] space 1 type L?] 
make "nt rc type char 8 

type ınt space 2 type "( type :i pr ") 
zugtest :st ıvt nt vi 

listzug :vt int 

ende 

ziehen :i 

end 


type 
make 
type 
type 


to zugtest :s sv ın si 
(local "vt "nt "st) 
make "vt item ıv :t 
make "nt item ın :t 
if emptyp :vt [err 
make "st first ıvt 
if not (1:5 = :st) [err :il 
if emptyp ınt [stop] 

it "st > first ınt lerr :il 
end 


si] 


to err :i 
pr " space 4 pr [** Fehlerhafte Eingabe! 


*”) 


pr 
ziehen :i - 1 

end 

to listzug zw en 
(local "vt "nt "st) 
make "vt item st 
make "nt item it 
make "st first evt 
make "vt bf ıvt 

make "nt fput :st ınt 
cut :v ıvt cut zn ent 
end 

to fertig 

DE ner 


pr LGratuliere!] 
pr [Sie haben es geschafft.] 

pr " pr [Druecken Sie eine Taste.] 
make "st rc TvH 


to space :sp 


repeat :sp [type char 32] 

end 

to ende 

if not (item 1 :t = LI) [stop] 

if or (item 2 :t = [)) (ITEM S st = CI) CFertig] 
end 

to eut se :ct 

if sc = 1 [make "t fput :ct (bf :t) stop] 
if = 3 [make "ct bl list :ct [] make "t 
se (bl :t) tct stop] 

make "t1 first :t 


make "t fput sct bf bf 
make "t fput :ti :t 
end 
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_ Vergleich einen Vorschlag, der das 
Turmproblem in Basic löst. Am An- 
fang steht ein kurzer Initialisierungs- 
teil, der drei Windows definiert 
"und die Grenzen des Spiels festlegt. 
Der Ausgangsturm kann aus dreibis 
‚sieben Scheiben bestehen, wobei 
die kleinsten Scheiben zuoberst lie- 
gen. Die vom Computer durchge- 
führte Demonstration der optimalen 
"Zugfolge kann ohne Verzögerung 
‘oder in Zeitlupe verfolgt werden. 


- der Schneider nach jedem Zug eine 
Zeitschleife (Zeile 470) ein. Nach 
den Anfangsabfragen folgt jedoch 
ersteine Routine, die Anfangsbedin- 
gungen für die Grafik festlegt. Das 
Basic-Programm stellt nach jedem 
Zug den Zustand aller drei Türme 
mit Hilfe von Scheiben, die aus dem 
‚Stern (»*«) aufgebaut sind, dar. Der 


Nach den etwas ungewohnten Lo- 


I 


Logo-Grundlagen : 


Array a$ gespeichert. Den Aufbau Verschiebungen in a$ gemacht und 
‚go-Prozeduren finden Sie nun zum der Scheiben auf den verschiede- danach das komplette Array durch 
nen Ebenen leistet eine einzige Zei- Aufruf von Zeile 340 dargestellt. Die- 
le (Zeile 260). Umbeieiner Verschie- ser Programmablauf wiederholt 
bung Scheiben löschen zu können, sich so lange, bis der Zielturm fertig 
wird dann noch der Stringbl$benö- aufgebaut ist. In diesem Fall muß in 
tigt. In Zeile 280 wird nun das Array, der obersten Schicht des Turmes 
genauer der erste Turm, mit denin wieder die kleinste Scheibe einge- 
br$ gespeicherten Zeilenstrings be- tragen sein. Der Test, der das prüft, 
legt, wonach die Türme durch den ist in Zeile 730. Falls der Turm kom- 
Aufruf der Unterroutine »Türme set- plett umgesetzt wurde, geht es hier 
zen« ausgegeben werden. Nun be- in die Endabfrage ab Zeile 1050. 

ginnt die eigentliche Simulation. Mit Als Vergleich zum Logo-Pro- 
Hilfe einer Rekursion, die in Basic gramm sollten Sie einmal die Proze- 


Im letzten Fall (2$="2”) schiebt nurschwierigund aufwendigzurea- dur Turmliste mit dem Rekursions- 


lisieren ist, werden die Züge be- teil ab Zeile 850 vergleichen. Hier 
stimmt. Die eigentliche Zugbestim- zeigen sich die Stärken von Logo als 
mung finden Sie dabei ab Zeile 850. Programmiersprache: Eine sehr 

Dazu ist gegebenenfallseinmehr- viel kürzere Befehlsfolge und eine 
facher Aufruf dieses Programmteils klare Struktur. Aber auch das restli- 
durch sich selbst nötig. Dieser Re- che Basic-Programm ist im Gegen- 
kursionsaufruf steht in Zeile 900. satz zu Logo weniger klar und 
Nachdem der optimale Zug ausge- durchsichtig programmiert. Bei Lo- 
sucht wurde, muß er nun noch aus- go dagegen sorgt das Denken in 
jalt aller drei Türme ist dabei in geführt werden. Dazu dient die Rou- Prozeduren für Übersicht. 


Form der Sternchenstrings in dem tine ab Zeile 520. Hier werden die (Carsten Straush) 
ERLLELEELELSEEELLELEET 139881 540 NEXT i 146021 
;£% Tuerme_von Hanoi ## ECEOAI 330 SSzOsRETURN, L&COEI 

Schneider ** [SF721 560 FOR j=1 TO 7 [3268] 
20 :se unter Basie 1.0 #8 [E9241 379, IE a®ti,bI=b1s THEN 590 LABEAI 
50 4590] 580 NEXT 5 LAOOCI 
&0 INK O,0zINK 1,6zINK 2,26: INK 3,11 ED2C41 590 FOR k=1 TO 7 14370] 
70 PEN 1 60761 600 IF a$ti,a)=br&(k) THEN 420 [76521 
80 CLS EF@D41 610 NEXT k 115021 
90 PRINT:PRINT" {3 SPACEITuerme von Hanoi 620 FOR 1=1 TO 7 [31661 
BASIC-Simulation" 158921 630 IF a$tj-1,b)=br#(1) THEN 660 [A722] 
100 WINDOW#3,1,40,6,25 159821 640 NEXT 1 CaDoAI 
110 LOCATE 16,7 tE79C1 650 1=1 tE12A] 
120 PRINT"Computersimulation (1)" CD2741 660 IF k<l THEN PRINT CHR$(7) :RETURN 1897A1 
130 LOCATE 10,9 670 a$tj,b)=as(i,a) tA1281 
140 PRINT"Zeitlupet11 SPACE) (2)" 130761 &80 as(i.a)=bls 138721 
150 z$=INKEY$:IF z$C>"1" AND z4<>"2" THE 690 "nunkunnnenenenenn L2AABI 
N_150 t7EA21 700 '** ausgeben und fertig ? ** LFOEEI 
160 PRINT:PRINT=PRINT“Anzahl der Scheibe EACHERTITTTELTILETTTELTLETELLET LIFFAI 
n auf dem Ausgangsturm(3-7)" 1A2961 720 GOSUB 340 LF6EOI 
170 y$=INKEY$: IF y&="" THEN 170 ELSE IF 739 IE a%47,39=br$(7) THEN 1050 LIDBEI 
ASC(y$)<51 OR ASC(y$)>55 THEN 170 EL 740 RE LACS6I 
SE_mz=VAL (y#) LA4EC1 750 Unzer“ LECA4] 
180 CLs#3 tD3E21 760 t1(1=1:t2(1)=3:t3(1)=2 [37EC1 
190 PEN 2 E34DEI 770 ne=i [SCFEI 
200 WINDOW#1,19,25,8,8 LEF9EI 780 dat1)=dn cC7301 
Z10 IF z4="2" THEN LÜCATE 16,5:PRINT"Zei 790 rz=0 [81321 
tlupe" CBDSEI 800 GOSUB 850 [B1EAI 
220. L6ASAI 810 END EBC20J 
230 ‘** Turmscheiben definieren #* L9ACC9 820 "nn 113521 
PITEERTLELTEITTEITCLLICIEREITELERGG ESAsEI 830 '** Rekursionsteil #« t855A1 
250 DIM a$(7,7 [A042 Bao ne 12156] 
260 FOR i=1 TO 7:br$(8-i)=SPACES (7-i)+ST LO2FB] 
RING$ (2* (4-1) +1," #") zNEXT CADBCI LI61E] 
270 b1$=SPACE$ (13) [82541 [58083 
280 FOR i=B-mz TO 7:a$ti,1)=brsti)lzasti, LABEOI 
Zizbisiatt, SI=bl$:NEXT £C7303 LasEz] 
290 GOSUB 340 CABE4] 900 IF ddine)=1 THEN rzerz+1:a=ti(ne):b= 
300 G0T0 750 'CD50 2 GOSUB 980 ELSE GOSUB 850 [51481 
310 "nn EFCF2I a=t1(ne-1):b=t2(ne-1) :GOSUB 
320 ‘** Tuerme setzen »* EDDEI tC74C1 
330 "anne [CAr63 =t3(ne-1) ECDD4J 
340 i=1 taoıcı 930 t2(ne)=t2(ne-1) T8BD6] 
350 CLS#1:PRINT#1,rz [A942] 940 t3(ne)=tiine-1) [71D81 
360 FOR x=20 TO 14 STEP-1 L8DB23 950 IF ddine)=1 THEN rzerz+ti:a=ti(ne):b= 
370 LOCATE 1,x:PRINT asti,1); C1B4A] +26 980 ELSE GOSUB 850 tA7181 
380 isirlı NEXT EC9SEI 960 ne=ne-1 114003 
390 [4326] 970 RETURN 120403 
300 FOR x=20 10 14 STEF-ı1 T1BAB1 780 LE6D0] 
410 LOCATE 14,x:PRINT a$(i,235 LFBAAI 990 GOSUB 520 [9DF23 
420 i=i+1 zNEXT t2F741 1000 RETURN [99821 
430 i=1 LoDicı 1010 FOR i=7 TO 1 STEP EFB&BI 
440 FOR x=20_TO 14 STEP-1 LE7BO] 1020 IF as ,a)cbis THEN RETURN tAC321 
450 LOCATE 27,x:PRINT a$(i,3)5; LDSBCI 1030 NEXT i Lassaı 
460 i=i+1 NEXT [437C3 1040 ce=0:RETURN [77641 
470 IF z$="2" THEN FOR t=1 TO 1000:NEXT 1050 LOCATE 10,25:PRINT"weiter mit Taste 
= LF188] ndruck" Li1BEI 
480 RETURN C1D581 1060 z&=INKEYS:IF z$="" THEN 1060 C4Ea81 
290 [8154] 1070 RUN LO1BA]J 
500 ’** Turmarray aendern #* 138103 
510 Innassunsnensununansaner FERN 
ee ar Listing. »Türme von Hanoi« ist in Basic 
530 IF ara oıE THEN 560 [BD521 bedeutend umständlicher als in Logo 
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CPC 464 für Ein- und Umsteiger 
Februar 1985, 260 Seiten 

Über die hervorragende Qualität des 
'CPC 464 sind sich alle Experten einig. 
‚Aber der Computerneuling wie auch der 
alle Hase, der bereits ein anderes 
‚System kennt, benötigt Hilfe, die ihm 
(dieses Buch gt Eine BASIC Einiün. 
fung (an den Beispielen Datelverwal 
una und Textverarbeitung!) si seat. 
Verständich. Darüber hinaus kanzen- 
{neren sich die Autoren auf die beson- 
deren Eigenschaften des #6 40rs seine 
mächtigen Befehle, die andere BASICs. 
ganz schön alt aussehen lassen una 
seine begeisternden Grafik- und Musik- 
möglichkeiten. Ein eigenes Kapitel ist 


© Straush 
CPC 464 Programmieren 

in Mascl 

Juli 1985, 278 Seiten 

Dieses Buch weiht in die Arbeitsweise 
des BASIC-Interpreters ein und erklärt 
die Funktonsweise der Bauteile des 
Geräts und deren Zusammenwirken. So. 
ergeben sich auch für reine BASIC- 
Programmierer bereits viele Ände- 
fungs- und Eingriffsmöglichkeiten in die 
Maschine. Die Einführung in die Z80- 
Maschinensprache ist speziell auf den 
CPC464 zugeschnitten und ermöglicht 
Wefe Einblicke in den Aufbau des 
Betriebssystems. Das Buch macht Sie 
autonom: ein Monitor- und Disassem- 
bierprogramm wird entwickelt, wodurch 
Sie nicht nur die Funktionsweise dieser 
wichtigen Programmierhifen kennen- 
ernen, sondern auch alle nötigen Werk- 
zeuge fürdie Arbeit mit dem Buchander 
Hand haben. 
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COMPUTER-ZEITSCHRIFTEN 


VON PROFIS FÜR PROFIS 


COMPUTER PERSÖNLICH 


Das aktuelle Fachmagazin 
für Personal-Computer. 


%* Wenn Sie jetzt den Schritt vom 
Heim-Computer zur professionel- 
len Anwendung eines Personal 
Computers planen 

%* Wenn Sie beruflich oder privat 
bereits einen Personal Computer 
benutzen 

%* Wenn Sie regelmäßig Informatio- 
nen über das aktuelle Produkt- 
angebot benötigen 

%* Wenn Sie selbst programmieren 


%* Wenn Sie professionelle Hard- 
und Softwaretests suchen 
%* Wenn Sie Ihr eigenes System 
mie effizient einsetzen wol- 
dann ist »Computer persönlich«, das 
aktuelle Fachmagazin für Personal 
Computer, genau Ihre Zeitschrift. 
Die konsequente Ausrichtung auf 
professionelle Anwendungen bietet 
Ihnen alle wichtigen Informationen. 
Von Profis für Profis! 


»Computer persönlich« gibt es alle 
14 Tage neu bei Ihrem Zeitschriften- 
händler oder im Computer-Fach- 
geschäft. 


PC MAGAZIN 


Einzige Wochenzeitung für Personal 
Computer im IBM-Standard. 


Sie beschäftigen sich beruflich oder 
privat mit dem Einsatz und der 
Anwendung von Personal 
Computern? 


Sie sind an aktuellen, professionel- 
len Informationen über IBM-PCs, 
kompatible Systeme und deren pro- 
fessionellen Einsatz interessiert? 
Dann ist das PC Magazin genau auf 
Ihre persönlichen Bedürfnisse 
zugeschnitten. 


Es wird von anerkannten und er- 
fahrenen Fachjournalisten für pro- 
fessionelle Anwender und Fachleute 
geschrieben. 


Es berichtet jede Woche ausschließ- 
lich über Computer im IBM-Standard 
und kompatible Systeme, über 
Hard- und Softwareneuheiten. 

Es bringt ausführliche Testberichte 
und gibt Ihnen wichtige Informatio- 
nen über Netzwerke sowie die 
PC/Host-Verbindung. 


Nur diese Spezialisierung ermöglicht 
eine gezielte Berichterstattung und 
bietet genügend Raum, um auf An- 
ande ehlene spezifisch eingehen 
zu können. 


Von Profis für Profis! 


Und das jeden Mittwoch neu bei 
Ihrem Zeitschriftenhändler oder im 
Computer-Fachgeschäft. 


COMPUTER PERSÖNLICH 
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Computer persniich dann ragelmäßig alle 
14 Tage per Post Irei Haus geliefert und 
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und Postgebühren übernimmt der Verlag, 
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J. Hückstädt 
CP/M 2.2 Anwenderhandbuch 

CPC 464/664/6128 

Dezember 1985, ca. 250 Seiten 

Wenn Sie glücklicher Besitzer eines Schneider 
‚Computers sind und mehr wissen wollen über 
das leistungsstarke Betriebssystem CP/M 2.2 
dann istdieses,Buch genau das richtige für Sie! 
Esbehandelt CP/M 2.2 nicht nur in seineralige- 
meinen Form. wie sie für sämtliche CP/M 
Computer gültig ist, sondern bezieht auch die 
Hardware der GPC-Computer mit ein. 


Bücher 
zu Schneider CPCs 


Marktätech 


CP/M 2.2 


T. Mossakowskl/J. Janneck 


ROM-Listing CPC 464/664/6128 
Dezember 1985, ca. 450 Seiten 

Dieses Buch enthält in konzentrierter Form 
umfassende Informationen über den Aufbau 
Ihres Computers, Es kann sich daher schnell zu 
einem unentbehrlichen Arbeitsbuch für die Pro- 
grammierung entwickeln. Um es optimal nutzen 
zu können, sollte man mit dem Schneider. 
BASIC vertraut sein und erste Erfahrungen in 
der Maschlnönsprache des ZBO besitzen. 

Zu jeder Röutine im Listing sind die Übergabe- 


Best.Nr. MT 859 Parameter aufgeführt. Verschiedene Tabellen 
ISON 3-89090.2049 erleichtern das Auffinden einer bestimmten 
DM Ab.-sFr. 42,900 Routine 
Sets Best.Nr. MT 711 
3. Hckstädt ISBN 3-89090:134-4 
CPIM Plus Anwenderhandbuch DM BA-AFt. 38.0005 499,20 
CPC 6128 TnEmei 
Dezember 1985, ca. 250 Seiten CPC BASIC-Kurs 


Ein unentbehrliches Nachschlagewerk für die 
praktische Arbeit mit CPIM-Plus und seinen 
rogrammen. Mit zahlreichen Beispielen. 


November 1985, 378 Seiten 


Ein Buch für den Einstieg in dle Bedienung und 
Programmierung der Schneider-Computer. 


Best.Nr. MT 8 
ISBN 3-89090:167.0 
DM 46,-sFr. 42,30108 358,80 


ISBN 3-89090:2 
DM 46,-IFr. 42,30/08 358,80. 
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Schneider CPC Grafik- Der Schneider CPC 6128 DR. LOGO auf dem Programmentwicklung CPC 464 - Programmie- WordStar 3.0 mit 
Programmierung September 1985,273Seiten Schneider CPC unter CP/M 2.2 auf dem ren in Maschinensprache MailMerge für den 
Dezember 1985, ca. 900 5. DiesesBuchistfürjedenCPC Januar 1988, ca. 250 Sei CPC 464/664 Juli 1985, 276 Seiten Schneider CPC 

Dieses Buch wendet sich an 8128-Besitzer eine wertvolle Speziell auf die Schneiier Dezember 1985, ca.250 $. Dieses Buch weint in die  September1985, 435 Selten 


Hilfe, die vielfachen Möglich 
keiten dieses bisher einmal 
‚gen Computers kennenzuler. 


die Schneider CPC-Besitzer, 
die alles über die Grafiktähig- 
keiten Ihres Computars wis 


Computer anwendbar finden 
Sein diesom Buch eine struk 
turlerte Anleitung tür die prak- 


Arbeitsweise des BASIC: 
Interpreters ein und erklärt die 
Funktionsweise der Bauteile 


Das unentbehrliche Zusatz. 
Handbuch für die Arbait mit 
‚dem Schneider CPC. 


Dieses Buch vermittelt alle 
Informationen, die zum seib- 


Jimfassenden Überblick über  ComputemeulmgwidSchit  _miersprache LOGO Mirzan.  CE.M ZZ,RTOgrammen nötig a nen Bas MI 778 

die verschiedenen Anwen- für Schritt in den Umgang mit reichen Beispielen zur Grafik und v DeoprachWnen ai N für reine BASIC-Pi een 
dungsbereichederGrafikpro- dem Compular und die und oundprogrammierung — Frninn a |  grammierer bereits viele An. On AsrrA640is 382,20 
Grarmerung: zwei ungdrel " BASIC-Programmierung ein- Das Kane! rind | Kunkäonewelae) on CRM und Einprflembg: 5 Dr:P,Albrechk 
dimensionale Diagrammdar- geführt, bis er alle notwendt nützliche Utilities (z.B. SORT: Zac arena net lichkeiten in die Maschine. x > 

stellungen. Definition und. gen Kenntnisse besitzt, de Aautnen], inlormatonen  wamännenderschönzurVor gan er ae } dBASE I für den 
Bewegung von Sprites, Ent- mancher Profi bereits mil: über die Auftelimgdes Spe-  1gund, tenenden System aan za9B90186-2 Schneider CPC 
‚urtvonTalgafen, Einsatz  bina; Aber an deber Stole _ char (Spacheranahyso und en orten. zus kapıei DM 4BrAFL. 42.008 35,80 September 1985, 280 Seiten 
Zug Anderer Programme. dem CPC-612Berst Meres- genzudenkaiokommandes -Descnifigen, sen mis nah Pick Bela ur 

. nders interessant: ein sant, nämlich dann, wenn es ' che. schließlich mit den zuaätzi ii 

ned an Makro darum geht, eine eigene Befehls as Te chen Möglichkeiten, die nur CPC 464 für Ein- und DM 49,-IsFr. 45,10/08 382,20 
gramm für hochauflösende  Dateiverwaltung aufzubauen  schläge zu den Aufgaben. eh L Dr. P- Albrecht 

Grafik, ein Programm zur ‚oder Grafik und Sound zu pro- Best.Nr. MT 865 Februar 1985, 260 Seiten fü 
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